





DEGNA NI EXER OLA 
CYA TAA 


AH-TSSSn-MC 
FICHE OL of 01 


' 15 
1 ; 








JUL 1984 


EGER 
n USA 


Made |! 





SVC .M.B SOURCE FILE 


Bl 


MACRO M1200 22-MAR-84 13:12 PAGE 2 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM IS MEANT TO PROVIDE 
FIELD SERVICE WITH A TOOL FOR DETERMINING THE CONNECTIVITY OF NODES 
ON THE NETWORK INTERCONNECT (NI). 


THE NIE PROGRAM WILL DETERMINE THE ABILITY OF NODES ON THE NI [0 
COMMUNICATE 7 ag a. OTHER AND PROVIDE NODE INSTALLATION VERIFICATION 


OF THE NI. THE VAX VERSION OF THE NIE CAN ALSO BE RUN CONCURRENTLY ON 
ANOTHER NODE, WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


IN ORDER TO RUN THE CVNIA NIE PROGRAM, THE FOLLOWING MINIMUM HARDWARE 
IS REQUIRED: 


- A PDP-11 CPU WITH A Q-BUS (11/723, 11723+, 11/03) 
- MINIMUM OF 24K WORDS OF MEMORY 

- A WORKING, LINE OR REAL-TIME CLOCK 

- A CONSC!.E TERMINAL 

- ANY XXDP.: SUPPORTED LOAD MEDIA 

- DEQNA QBUS IC ETHERNET ADAPTER 


D1 
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1.3 RELATED DOCUMENTS AND STANDARDS 


- DEQNA FUNCTIONAL AND P&OGRAMMING SPEC 
- XXDP+ USER'S MANUAL (CHQUS?.SEQ WHERE ? IS THE REV. LEVEL OF 
THE MANUAL - “C” IS THE CURRENT REV.) 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

THE GOAL OF THE NIE IS TO TEST THE COMMUNICATIONS LINK AND THEREFORE 

ASSUMES THAT THE CPU'S, CLOCKS, AND DEQNA'S OR DEQNA‘’S AT EACH END OF THE LINK 
HAVE ALREADY BEEN TESTED. 

IF NO LINE OR REAL-TIME CLOCK IS FOUND, THE PROGRAM WILL NOT RUN. 


IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEQNA), 
BUT TO TEST THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED. 


1.5 ASSUMPTIONS 


IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEQNA) HAS B » TESTED 
USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE 
USER DOCUMENTATION PORTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 
pn | — AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INVE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 


OROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SFE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.5) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF "START". 


SEQ 3 


es 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE *ABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH 

IN THE DESCR1°7IONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDOD". 


SWITCH EFFECT 
/TESTS:LAST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - Ae ee Le 
THIS LIST WILL CAUSE TESTS 1,5,7.8,9,10 TO 
BE UN. ALL OTHER TESTS WILL NOT BE RUN, 
/PASS:D00000 EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIEO FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.5. 


7EOP : 00000 REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 CUNIT NUMBERS = 0-65) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILi BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE _ OF 
PASS MESSAGES WILL 5E PRINTED AFTER EACH 100 PASSES ONLY 

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. ‘vou MAY, 
FOR EXAMPLE, TYPE “/TES:1-5” INSTEAD OF "/TESTS:1-5”. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS EOP UNITS 


“nse e2eeeece«ecouV3*2eo#ses#seew@#e#ee#e#e#sbeewereese*es eeeee “ss es#efe et Fe Fe fF fF * 


2.5 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 


Fl 
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FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 


E TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS ( THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?” 

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


® UNITS (0) ? 1<CR> 
UNIT 


0 
DEVICE CSR ADDRESS : (0) 174440 2?<CR> 
INTERRUPT VECTOR ADDRESS : (0) 300 ?<CR> 
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INTERRUPT PRIORITY : (0) 5S 2?<CR> 


WHEN YOU COMPLETE THE ABOVE SEQUENCE vOU WILL BE AT THE NIE> 
COMMAND LEVEL. . 


NIE> (A) ? 


2.5 NETWORK INTERRCONNECT EXERCISER COMMANDS 

THE “NIE>” COMMAND LEVEL FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE START TO THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE “NIE>” PROMPT IS PRINTED. 


YOU ONLY HAVE TO TYPE ENOUGH CHARS TERS TO UNIQUELY SPECIFY A 
COMMAND. THE COMMAND LINE IS INTERPF TED FROM LEFT TO RIGHT. 


UNDERLINED ITEMS IN THE EXAMPLES REPRESENT THE USER'S RESPONSE TO THE 
PROMPT TO EXECUTE THAT PARTICULAR COMMAND. 


HELP OR ? PRINTS OUT A BRIEF DESCRIPTION OF NIE COMMANDS. 
EXAMPLE : 
NIE> (A) ? 


‘=z 


OR 
NIE> (A) ? 


1 ew 


SHOW NODES PRINTS OUT THE CONTENTS OF THE NODE TABLE. 

EXAMPLE : 

NIE> (A) ? SH N 

SHOW MESSAGE PRINTS OUT THE CURRENT MESSAGE PARAMETERS FOR SIZE, 
TYPE AND COPIES. 

EXAMPLE : 

NIE> (A) ? SH M 


SHOW COUNTERS PRINTS OUT THE CONTENTS OF THE HOST NODE DEUNA INTERNAL 
COUNTERS. 


AREASASAAAAREEACEESSEESESEEEEAEREEEEEEEAEAEEEEEEHEEAOHASERESHEESEHHHAEHEESEHEESCEOEE 
NOTE: 
BIT 3 OF THE RECEIVE ERROR BIT MASK IS THE “RUNT PACKET” BIT. THIS IS NOT PART 


SEQ 6 


Hi 
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OF THE COUNTERS INFO. THIS BIT INDICATES THAT A RUNT PACKET WAS Ae IN THE 
RECEIVE BUFFER. THE SOFTWARE WILL DISCARD THE RUNT PACKET. IT IS NO 
CONSIDERED AN ERROR AND WILL NOT BE RECORDED AS ONE. THE HARDWARE DESIGN 
WILL ALLOW A RUNT PACKET CONDITION TO OCCUR AND REQUIRES THAT THE SOFTWARE 
HANDLE SUCH A CONDITION. SEE THE QNA DESIGN SPECIFICATIONS FOR FURTHER 
INFORMATION ON THE NATURE OF RUNT PACKETS. 


THE MEANING OF THE COUNTERS IS EXPLAINED IN THE DEUNA USER'S GUIDE 
NUMBER EK -DEUNA-UG. 


THE ERROR BIT MASKS FOR XMIT AND RECEIVE ARE IN BINARY FORMAT, NOT OCTAL OR 
DECIMAL (I.E. 11 = BIT1 AND BITO, NOT AN OCTAL OR DECIMAL ELEVEN. 


AARARERAEREEEREALEESEEEEEEEEEEEEEEEEEEEEREEESEEHEEEEAEEEEEEEEEEEEESESERESEEEEEOS 
EXAMPLE : 
NIE> (A) ? SHC 


NODE ADR/TYPE THE NODE COMMAND ALLOWS THE OPERATOR TO ENTER NODES INTO 
THE NODE TABLE. NODES ARE SPECIFIED USING THEIR 12 HEX 
DIGIT ETHERNET PHYSICAL ADDRESS AND CAN BE SPECIFIED AS 
EITHER TARGET OR ASSIST (A DEFAULT OF TARGET IS ASSUMED). 


AAKRSSAASSESEASAAEACASESSESLESASSHEHASESESEASSESEEEAESSEESESESSESEEKESHSESEEESESEEEE 
NOTE 


IF THE NODE IS TO BE CHANGED FROM A TARGET TO AN ASSIST OR VICE VERSA, IT 
MUST BE CLEARED FROM THE TABLE FIRST! 


WHEN RUNNING THE LOOPPAIR TEST, BE VERY CAREFUL WHEN DELETING NODES. IT IS 
BETTER TO DELETE NODES IN PAIRS ( ONE TARGET NODE AND ONE ASSIST NODE). 


SHEERAAEAEEEREEAEEEEASEERERESSESEEAEAOEEEEREEEREEEDEESESESSSEOEHEHOSEEEEES 
EXAMPLE OF TARGET NODE ENTRY: 
NIE> CA) ? " AA-00-04-FF -FF -FO/T 


EXAMPLE OF ASSIST NODE ENTRY: 
NIE> (A) ? " AA-00-04-FF -FF-FO/A 


EXAMPLE: 
NIE> (A) ? N AA -00-04-FF -FF -FO 


-~—_—-—-—-—- «= = ee — re lhc rr 


EXAMPLE OF CHANGING A TARGET NODE TO AN ASSIST NODE: 


SEQ 7 


Ii 
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NIE> (A) ? CL N/AA-00-04-FF-FF-FO (SEE CLEAR COMMAND) 


MESSAGE /TVPE = /SE25 ST ae THE MESSAGE COMMAND ALLOWS THE OPERATOR 
O SELECT THE CURRENT MESSAGE PARAMETERS AS FOLLOWS. 
ANY OR ALL OF THE PARAMETER CAN BE CHANGED WITH THE = 
THE DEFAULT PARAMETERS ARE TYPE=ALPHA,SIZE=512,COPIES=1 


TYPE ONE OF THE FOLLOWING MESSAGE TYPES: 


ALPHA -- !"@$s'( )a+,-./0123456789; : = 7ABCDEFG ETC. 

ONES -- MESSAGE OF ALL ONES (11111111....) 

ZEROS -- MESSAGE OF ALL ZEROS (0000000....) 

LALT -- ALTERNATING 1'S AND 0" § (10101010...) 

OALT -- ALTERNATING O'S AND 1'S (01010101...) 

CCITT -- “CCITT” PSEUDO- RANDOM Test PATTERN. 

OPERATOR SELECTED -- OPERATOR CHOSEN PATTERN OF LESS THAN 
72 CHARACTERS USING 0-9, A-Z AND SPACES. (NOT USED IN 
PATTERN TEST) 


sIZe i OF THE MESSAGE BUFFER MAY BE BETWEEN 46 AND 512 
COPIES THE NUMBER OF COPIES OF EACH MESSAGE SENT TO EACH NODE 


DURING A TEST MAY BE BETWEEN 1 AND 255. 


EXAMPLE OF CHANGING TYPE: 
NIE> CA) ? M/T=ZERO 


EXAMPLE OF CHANGING SIZE: 
NIE> (A) ? M/S*256 


EXAMPLE OF CHANGING BOTH TYPE AND SIZE: 
NIE> CA) ? M/S*512/T=ALPHA 


RUN in — EXECUTION OF THE SPECIFIED TEST FOR NN NUMBER OF 
ASSES. A DEFAULT VALUE OF 1 IS ASSUMED IF /PASS=NN IS 
NOT INCLUDED IN THE COMMAND LINE. A VALUE OF NN=-1 WILL 
CAUSE THE TEST TO BE RUN INDEFINITELY. NODE ADDRESSES 
FOR THE TESTS ARE TAKEN FROM THE NODE TABLE AND SHOULD BE 
ENTERED PRIOR TO RUNNING THE TEST USING THE NODE COMMAND. 
IN THE CASE OF THE LOOPPAIR TEST, NODE PAIRS ARE REQUIRED 


Ji 
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AND MUST BE SPECIFIED AS TARGET AND ASSIST NODES. THE 
CURRENTLY SELECTED VALUES FOR MESSAGE TYPE, SIZE AND 
COPIES ARE USED BY EACH TEST. 


THERE ARE FOUR TEST TO CHOSE FROM: 


DIRECT THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 


LOOPPAIR THE LOOPPAIR TEST SENDS ASSISTED or MESSAGES TO THE 
NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 


1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 
2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 
3) FULL ASSIST -- HOST -> ASSIST -> TARGET -> ASSIST -> HOST 


IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 


eae IMPORTANT!! #e¢ ---> THE LOOPAIR TEST EXPECTS THAT EACH 
TARGET NODE HAVE A CORRESPONDING ASSIST NODE, AND THAT THE 
ORDER OF THE NODES IN THE NODE TABLE BE THE FOLLOWING: 


FIRST NODE IN TABLE: TARGET 
2ND NODE IN TABLE: ASSIST 
3RD NODE IN TABLE: TARGET 
4TH NODE IN TABLE: oe 


IF THERE ARE TWO ASSIST — IN A ROW, THE PROGRAM WILL 
CHANGE THE FIRST NODE TO A TARGET NODE, AND A SOFT ERROR 
WILL BE INDICATED. 


BE VERY CAREFUL WHEN DELETING NODES. IT IS BEST TO DELETE 
NODES IN PAIRS € ONE TARGET NODE AND ONE ASSIST NODE). 


PATTERN THE PATTERN TEST Bo SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF i SIx 
PATTERN TYPES (ALPHA, ONES, ZEROS, 1ALT, OALT, CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 


ALL THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW 


Kl 
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1-6 2-7 
1-7 
RESP RUNS THE RESPONDER TEST, A SECTION OF CODE THAT PROVIDES LOOP-SERVER 


FUNCTIONS SUCH AS FORWARDING MESSAGES, ANSWERING CONSOLE ID REQUESTS, AND 
TRANSMITTING A SYSTEM ID EVERY 8 TO 9 MINUTES. 


AAA AEDEEERESESEAESEEEEESEEEAEEESEEEEESSESEDESESASESEEESASESEEESEAEREREADEEEEEES 
IMPORTANT 
THIS SECTION MUST BE RUN IF THE DEQNA IS TO BE USED AS A LOOP 
ASSIST OR TARGET NODE ON THE ETHERNET. THE OTHER TESTS WILL 


—~" IGNORE FORWARDING REQUESTS, AND WILL NOT XMIT CONSOLE 


THE ONLY WAY TO ESCAPE FROM A LARGE OR INFINITE NUMBER OF 

PASSES IS TO TYPE CONTROL C. BE CAREFUL!! IF YOU TYPE “START” 

TO DSR> AFTER THE CONTROL C YOU WILL DESTROY ALL SUMMARY 

STATISTICS AND COUNTERS. USE THE “RESTART” COMMAND TO DSR> TO 

GET BACK TO THE NIE> PROMPT AND PRESERVE THE COUNTERS. 
RAAAAEEAEAEAAEEESAAEEERAEEEEEESEEEEEEEEEEEEAREREES ROARED EASEAEEEEEEEEEDEEE DEEDS 


EXAMPLE OF RUNNING THE DIRECT TEST ONE PASS: 
NIE> (A) ? RD 


EXAMPLE OF RUNNING THE DIRECT TEST S PASSES: 

NIE> (A) ? R D/P#5 

EXAMPLE OF RUNNING THE DIRECT TEST INFINITE PASSES: 
NIE> CA) ? R D/P#0 

EXAMPLE OF RUNNING LOOP-PAIR TEST: 

NIE> (A) PRL 

EXAMPLE OF RUNNING RESPONDER TEST: 

NIE> (A) 2? RR 


Ll 
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IDENTIFY ADR 


EXAMPLE : 


a we ID MESSAGE IS SENT TO THE NODE SPECIFIED By ADR 
AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED. 


NIE> (A) ? ID AA-00-04-FF -FF-FO 


BUILD 


EXAMPLE: 
NIE> (A) ? BU 


CLEAR NODE/ADR 


CLEAR NODE/ALL 
CLEAR MESSAGE 


CLEAR SUMMARY 


THE BUILD COMMAND CAUSES THE EXERCISERS TO LISTEN FOR 
SYSTEM ID MESSAGES WHICH ARE BROADCAST BY ALL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL NODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NODE TABLE. THE BUILD COMMAND STOPS 


WHEN NO NEW NODE 
40 MINUTES HAVE ELAPSED. THE AVERAGE TIME FOR THIS 
COMMAND SHOULD BE 15-25 MINUTES. 


IT IS POSSIBLE TO MISS A TRANSMISSION WITHIN THE TEN MINUTE 
PERIOD. IF NO NODES SHOW UP AFTER A BUILD, TRY WAITING 4 
OR 5S MINUTES AND DO THE BUILD AGAIN. 


A FEATURE OF THIS PROGRAM IS THE ABILITY TO tC OUT OF THE 
BUILD ROUTINE AT ANY TIME WITHOUT HAVING TO WAIT FOR THE 
BUILDING PROCESS TO COMPLETE. THIS IS NICE WHEN YOU  — 
Lilly 3 A FEW NODES AND DON'T CARE ABOUT “ALL” THE NODES ON 


THE CLEAR NODE COMMAND CLEARS THE SPECIFIED NODE FROM 
THE NODE TABLE. THE NODE CAN BE SPECIFIED BY EITHER 
ITS 12 DIGIT PHYSICAL —s OR ITS LOGICAL NAME 

CAS ASSIGNED BY NODE TABLE 


THIS COMMAND CLEARS THE NODE TABLE. 


THIS COMMAND SETS THE MESSAGE PARAMETERS BACK TO THE 
DEFAULT VALUES. 


THIS COMMAND CLEARS THE SUMMARY TABLE. 


EXAMPLE OF CLEARING A NODE USING THE NI ADDRESS: 
NIE> (A) ? CL N/AA-00-04-FF -FF -FO 


EXAMPLE OF CLEARING A NODE USING IT'S LOGICAL NAME: 


SEQ 11 


M1 
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NIE> (A) ? CL N/NS 


AERSEAAAEAEEESEDEEASESEEEEDEEEAEEEEREEEESEE EE EEREEAEEEAEEEEEEESEESEEEEEEEDS 
NOTE: 


TO FIND WHICH LOGICAL NAME IS ASSOCIATED WITH AN ADDRESS, EXECUTE 
THE “SHOW NODE” COMMAND. 


ALSO, A CLEARED NODE CAN BE RESTORED TO THE NODE TABLE BY EXECUTING 
THE “UNSAVE” COMMAND. 


AACKEAERESESEAESSEAAEEESASESAESASESERASASADAESEAESESEAEEEAEEEESEEASEEESESESEES 


EXAMPLE OF CLEARING ALL NODES: 
NIE> (A) ? CL N/ALL 


SUMMARY THE SUMMARY COMMAND PRINTS OUT THE SUMMARY TABLE. 
THE NIE MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES: 


RECEIVES NOT COMPLETE RECEIVES COMPLETE 


LENGTH ERRORS DATA COMPARE ERRORS 
BYTES COMPARED BYTES TRANSFERRED 
ARARAERARAAAEARERERERARASESEREEAREREAEEEASEEAREEARARESEEEASEREEEEEEHESEDEREEREOS 
NOTE: 


ore COMPARED REPRESENTS DATA MINUS THE LOOP-SERVER PROTOCOL OVERHEAD, AND 
HUS WILL BE LESS THAN BYTES TRANSFERRED WHICH REPRESENTS DATA PLUS LOOP - 
SERVER PROTOCOL OVERHEAD 


SASSAAAAALALASAASESEAAEASEAEEAEESESEEASSEASAEAEEHESSEEASSEASSHHASCASASSSESEASEKSEEAAASEESSEE 


EXAMPLE : 
NIE> CA) ? SUMM 


SAVE THE SAVE COMMAND SAVES THE CONTENTS OF THE NODE TABLE 
FOR THE VAX VERSION, THE TABLE IS SAVED IN A FILE CALLED 
NIE.TBL. THE POP-11 VERSION CANNOT WRITE TO EXTERNAL 
MEDIA, SO THE CONTENTS ARE SAVED INTERNALLY. 


EXAMPLE : 
NIE> (A) ? SAV 


Ni 
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UNSAVE THE UNSAVE COMMAND RESTORES THE CONTENTS OF THE NODE TABLE. 
USED. THE POP-11 VERSION USES THE CONTENTS OF ITS 
INTERNALLY SAVED TABLE. 

EXAMPLE: 


NIE> (A) ? UNS 


EXIT RETURNS CONTROL TO THE DIAGNOSTIC SUPERVISOR 
CEITHER VOS OR DRS). 


RKEAKEEEEEERASEAASEEASASLEDEESESEEEEDEEEEEAESEEAEEEEEESEEEREEAEEEREEEAEEEEEEEEDES 
NOTE: 


THE DSR> RESTART AND CONTINUE COMMAND CANNOT BE USED IF THE EXIT COMMAND HAS 
BEEN USED TO LEAVE NIE> 


SEKAAEEEASEAEEESEAERESEESESEEEEESEESEESEEEEEESEHESEESEESESESESEEESEEESAEEEESEEEESESESES 


EXAMPLE : 
NIE> (A) ? EXIT 


: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI. 
2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65554. 
A DEFAULT VALUE OF 1 IS ASSUMED. SPECIFYING -1 
CAUSES THE TEST TO BE RUN INDEFINITELY. 


2.5.1 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL out PROMPTED BY “CHANGE SW (L) ?” 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

“Y", THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


2.6 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP- 


Be 
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2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) "QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 

S. ANSWER THE “CHANGE HW” QUESTION WITH “Y" 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7, ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.5). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXxXxx 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = er TYPE Bt FATAL, DEV FATAL, HARD OR SOFT) 


ey" NUMBE 
ob NUMBER = N (N IS LAST UNIT IN PTABLE) 
T NUMBER = Tesi AND SUBTEST WHERE ERROR OCCURRED 
PEs XXXRXX * ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROK MESSAGES ARE MESSAGES THAT CUNTAIN SOME ADDITIONAL 
INFORMATION ABOUT = ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR gh yell 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE AL 

PRINTED UNLESS THE “IER”, "IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE sg tte rt GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
ERROR MESSAGE: MEANING 


?ILL CMD-BAD SYNTAX A COMMAND WITH AN ILLEGAL CHAR WAS 
TYPED - RETYPE THE COMMAND. THE VALIO 
COMMANDS AND THEIR SYNTAX ARE SHOWN 
IN SECTION 2.5 


Ce 
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? INCOMPLE TE A REQUIRED PART OF A COMMAND WAS LEFT 
OuT. | 
?7NUMBER TOO BIG THE VALUE OF A NUMERIC STRING IN THE 


COMMAND LINE WAS LARGER THAN 65555 
OR 177777 OCTAL. € >16 BITS). 


?2BAD RADI A "8" OR "9" WAS TYPED WHEN AN OCTAL 
STRING WAS EXPECTED. PROBABLY OCCURRED 
WHEN TYPING A “DUMP” COMMAND WHERE 
OCTAL ADDRESSES ARE EXPECTED. 


EXAMPLE OF A LOST PACKET ERROR DURING LOOPPAIR TESTING 


CVNIA HRD ERR 00028 ON UNIT OO TST 001 SUB 000 PC:064442 


TIMEOUT OCCURRED - LCOP MESSAGE TYPE - RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-00-03-00-00-00 
FAILING ASSIST NODE ADDRESS: AA-00-03-00-00-02 


EXAMPLE OF A LOST PACKET ERROR DURING PATTERN TESTING 


CVNIA HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:63750 


TIMEOUT OCCURRED BEFORE LOOPBACK REPLY 
FAILING NODE ADDRESS: AA-00-03-00-00-00 
DATA PATTERN: ONES 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OF TEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


5.0 DEVICE INFORMATION TABLES 


_— IS THE DEFAULT HARDWARE P-TABLE. THE VALUES AND SIZE ARE USED 
AS A “TEMPLATE” FOR CREATING ACTUAL P-TABLE ENTRIES ANDO THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HARDWARE QUESTI 


THE NUMBERS IN ay et (I. toe ‘4 INDICATES THE OFFSET OF THE WORD 
INTO THE HARDWARE P-TABLE. OFFSETS MUST MATCH THE P-TABLE OFFSETS 
USED IN THE HARDWARE PARAMETER — SECTION WHERE THE "GET PARAMETER” 
CALLS ARE USED TO FILL THE P-TABLE 


-WORD 174440 70) CSR ADDRESS 
-WORD 300 ;(2]) INTERRUPT VECTOR 
-WORD 240 :({6]) INTERRUPT PRIORITY (5) 


6.0 TEST SUMMARIES 


De 
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6.1 OIRECT 


THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANY ERRORS 
ARE REPORTED TO THE OPERATOR. 


6.2 LOOPPAIR 


THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 
NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 


1) RECEIVE ASSIST -- HOST -> TARGET -> ASSIST -> HOST 
2) TRANSMIT ASSIST -- HOST -> ASSIST -> TARGET -> HOST 
3) FULL ASSIST -- MOST -> ASSIST -> TARGET -> ASSIST -> HOST 


IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 
6.3 PATTERN 


THE PATTERN TEST SENDS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA, ONES, ZEROS. 1ALT, OALT, CCITT) 

IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 


6.4 ALL 


THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF T 

NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
gt al THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK ae er 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 


Ee 


R MACRO M 22-MAR-84 13:12 PAGE 3 SEQ 17 
SYNIASQ DEQNA NI EXERCISE DIAG MACRO M1200 22 
927 _SBTTL PROGRAM HEADER 
947 
948 000000 -ENABL ABS,AMA 
949 002000 ; = 2000 
a 
952 _SBTTL PROGRAM MACROS 
954 
955 ;I$STACK MACRO 
b> Brot ttt eeee 
958 sane 
959 ; THE I$STACK MACRO FACILITATES INITIALIZING THE R6 (HARDWARE) STACK 
960 ;AND THE RS (PARAMETER) STACK. RS IS SET TO THE STACK LOW LIMIT 
961 :(STAKLO) AND THE PARAMETER STACK GROWS UPWARD. R6 IS SET TO THE 
962 ;STACK HIGH LIMIT (STAKHI) AND THE HARDWARE STACK GROWS DOWNWARD. 
963 ;IF THERE IS A STACK OVER-RUN, IT WILL BE DETECTED BY THE PREGI4 
964 ; ROUTINE . 
967 MACRO I$STACK STAKLO,STAKHI 
309 MOV STAKLO,RS sINITIALIZE THE PARAMETER STACK POINTER. 
970 MOV a STAKHI.SP ‘INITIALIZE THE HARDWARE STACK POINTER. 
971 .NLIS 
972 "ENDM  ISSTACK 
973 
97 ;PUSH MACRO 
975 + ey anak te 
ov7 
eee 

978 THE “PUSH” MACRO FACILITATES PUSHING ITEMS ON THE HARDWARE STACK. 
979 ‘uP TO SEVEN ITEMS MAY BE PLACED ON THE STACK WITH ONE MACRO. 
980 setied 
oa ” A.6.C.0.E ov 

2 
983 TF NB G 
98s ’ MOV G. -(SP) 
986 .NLIST 
987 .ENDC 
390 ‘Ost ‘ 
991 a MOV F.-(SP) 
992 .NLIST 
993 -ENODC 
995 IF NB E 
997 _ MOV E, -(SP) 
998 .NLIST 
999 “ENDC 
1000 
1001 _IF NB OD 
1002 “LIST 


BROGRAM MA 


Fe 
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-NLIST 
. ENDC 


-IF NBC 
.LIST 


-NLIST 
. ENOC 


.IF NB B 
LIST 


~NLIST 
.ENOC 


.IF NB A 
LIST 


»NLIST 

.ENDC 

.ENDM PUSH 
:POP MACRO 


peer 


D, (9?) 


C, (SP) 


;THE “POP” MACRO FACILITATES RETRIEVING ITEMS FROM THE HARDWARE 


;UP TO SEVEN ITEMS MAY BE RETRIEVED WITH ONE 


-MACRO POP 


.IF NB A 
.LIST 


«NLIST 
NOC 


LIST 


»~NLIST 
- ENOC 
IF NBC 
LIST 


~NLIST 
. ENOC 


IF NB OD 


-NLIST 
.ENOC 


A.B.C,0.E.F.G 


MOV 


(SP)+,A 


(SP)+-.8 


(SP )-.C 


<SP)-,0 


SEQ i8 


STACK. 


Ge 
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BXOGRAN MACROS . SEQ 1 

1060 

1061 .IF NB E 

1062 .LIST 

1064 .NLIST 

1065 . ENDC 

1066 

1067 .IF NB F 

1068 LIST 

1069 MOV (SP )+,F 

1070 -NLIST 

1071 . ENOC 

1072 

10735 .IF NB G 

1074 -LIST 

1075 MOV (SP )+,G 

1076 -NLIST 

1077 .ENDC 

1078 

1079 .ENDM POP 

1080 

1081 ;CALL MACRO 

1082 gcecccecess 

1083 

1084 peer 

1085 ;THE CALL MACRO FACILITATES CALLING A SUBROUTINE VIA THE REGISTER 

1086 ;PRESERVE ROUTINE (PREGI4). IT PLACES THE PARAMETERS TO SE PASSED ON 

1087 ; THE PARAMETER STACK. UP TO 7 PARAMETERS MAY BE PASSED USING THIS 

1088 :MACRO. 

1089 $--- 

1090 

1091 -MACRO CALL S A,B.C.0.E.F.G 

1092 

1093 .IF NBG 

1094 LIST 

1095 MOV G,CRS)-> 

1096 -NLIST 

1097 .ENDC 

1098 

1099 IF NB F 

1100 LIST 

1101 MOV F.CRS)> 

1102 -NLIST 

1103 .ENDC 

1104 

1105 .IF NB E 

1106 LIST 

1107 MOV E,CRS)- 

1108 -NLIST 

1109 -ENOC 

1110 

1111 .IF NB O 

lile -LIST 

1113 MOV D.CRS)- 

1114 »NLIST 

1115 . ENDC 

1116 


He 
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L117 .IF NBC 
1118 .LIST 
1119 , MOV C,CRS)> 
1120 -NLIST 
1121 .ENDC 
li22 
11235 .JF NB B 
1124 LIST 
1125 MOV B,CRS)> 
1126 -NLIST 
1127 .ENDC 
1128 
1129 .IF NB A 
11350 .LIST 
1131 MOV A,CRS)- 
1132 -NLIST 
1133 .ENOC 
1134 
1135 LIST 
1136 JSR R4 ,PREG14 
1137 . WORD S - ANCHOR 
1138 -NLIST 
1139 .E CALL 
1140 
1141 ;RETURN MACRO 
1142 gore nee eee 
1143 
1144 geee 
1145 ; THE RETURN MACRO FACILITATES PASSING PARAMETERS BACK TO A CALLING 
1146 ;ROUTINE. UP TO 7 PARAMETERS MAY BE PASSED BACK ON THE PARAMETER 
1147 ;STACK, 
1148 gee 
1149 
eit -MACRO RETURN A,B,C,.D.E.F,.G 
1152 .IF NBG 
1153 LIST 
1154 MOV G,CR5S)> 
1155 -NLIST 
1156 .ENOC 
1157 
1158 IF NB F 
1159 .LIST 
1160 MOV F.CRS)- 
1161 -NLIST 
1162 .ENDC 
1163 
1164 -IF NB E 
1165 LIST 
1166 MOV E,CRS)> 
1167 -NLIST 
1168 . ENDC 
1169 
1170 .IF NB DO 
1171 LIST 
1172 MOV D,CRS)- 


1173 -NLIST 


pusiass 


Ie 
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. ENOC 


.IF NBC 
LIST 


-NLIST 
. ENDC 
.IF NB B 
LIST 


-NLIST 
.ENDC 


.IF NB A 
.LIST 


. ENOC 
-LIST 


-NLIST 
-ENOM RETURN 


;P$PUSH MACRO 


RTS 


sees 


SEQ 21 


C,CRS)- 


B.C RS)> 


A,CRS)- 


PC 


;THE PSPUSH MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 


;STACK. UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO. 


2 ee 
-MACRO PSPUSH A,B,.C,.0.E.F.G 


.IF NBG 
LIST 


-NLIST 
.ENDC 
IF NB F 
-LIST 
-NLIST 
NOC 


-IF NB E 
LIST 


-NLIST 
. ENDC 
.IF NB DO 
LIST 


-NLIST 
. ENDC 


G,CRS)- 


F,CRS)> 


E,CRS)- 


D,.CRS)- 


Je 
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AM MACROS 

1251 

1232 .IF NB C 

1233 .LIST 

1235 -NLIST 

1236 . ENDC 

1237 

1238 .IF NB B 

1239 .LIST 

1241 -NLIST 

1242 .ENOC 

1245 

1244 .IF NB A 

1245 .LIST 

1246 MOV A,CRS)> 

1247 -NLIST 

1248 .ENDC 

1249 

1250 -ENDM £ PS$PUSH 

1251 

1252 ;P$POP MACRO 

1253 §enenes seuee 

1254 

i 

pore 

1257 ;THE PSPOP MACRO FACILITATES RETRIEVING PARAMETERS FROM THE PARAMETER 

ir ;STACK. UP TO 7 PARAMETERS MAY BE RETRIEVED. 

les ; 

1260 ;THE ROUTINE THAT RECEIVES THE PARAMETERS HAS THE RESPONSIBILITY OF 

1261 ;CLEANING UP THE PARAMETER STACK. THIS MACRO IS AN AID TO MAKING 

pot 3A LOCAL COPY OF PASSED PARAMETERS AND CLEANING UP THE PARAMETER STACK. 

1 t--- 

1264 

1265 -MACRO PSPOP A,B.C,.D,E.F.G 

1266 

1267 .IF NB A 

1268 -LIST 

1269 MOV -€R5).A 

1270 »NLIST 

1271 .ENOC 

1272 

1273 .IF NB B 

1274 LIST 

1275 MOV -(R5).8 

1276 ~NLIST 

1277 } 

1278 

1279 .IF NBC 

1280 LIST 

1281 MOV -€R5S),C 

1282 »NLIST 

1283 .ENOC 

1284 

1285 .IF NB D 

1286 .LIST 

1287 MOV -(R5),0 


Ke 
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CYNIAR DEQNA NI EXERCISER D 
1288 -NLIST 
1289 "ENDC 
aa a 
i595 ; MOV -(R5),E 
1294 .NLIST 
1295 “ENDC 
i uP 
i399 F MOV -(RS),F 
1300 .NLIST 
1301 “ENDC 
1308 IF 
“LIST 

i305 MOV -(R5).G 
1306 .NLIS1 
1307 “ENDC 
1309 .ENDM  PSPOP 
1310 
i316 

.MACRO CLI CHAR ,,HITVAL .MISADR, CMPST 
isis CHAR .HITVAL .\X$,MISADR, CHPsTR 570008 PARSE TREE sooo 
1319 .ENDM 
i331 
1322 ; L CHAR, HITVAL, XY, MISADR,CMPSTR 
1323 NOD'’XY: .BYTE CHAR,HITVAL ;SPECIAL CHAR. CODE OR COMPARE CHAR. 
1324 ; AND ACTION (HIT) VALUE FOR ACTION 
1325 a ; ROUTINES. 
1327 die _WORD MISAOR-NOD’ XY ;DISPLACEMENT TO “MISS” NODE (BYTES) 

_IF NB CMPSTR 
1380 , “WORD  1$-NOD' XY ;DISPLACEMENT TO GET TO NEXT NODE 
1331 “ASCIZ CMPSTR ; CONLY IF ITS A "CLISTR” NODE) 
1332 EVEN 
re ag 
i336 bast 
1337 “NLIST 
1338 X$=X$eol 
i340 “ENON 
1341 MACRO NEXT A.B 
iss "WORD A'B ; SEGMENT BUFFER ADDRESS 
1344 iad "NLIST 
+ 3a6 "MACRO RNGFRM A,B,C ; MACRO TO FORM TRANSMIT AND RECEIVE 
1347 ; DESCRIPTOR RINGS. 


Le 
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BROGRAM MACROS , = 


117114 
000000 
002170 
000000 
117312 
000000 


002164 


iB 


FLAG WORD 
SET VALID BIT (COSCR/HIGH ADDRESS WROD) 


-NLIST 
east NEXT A,\B8 ; BUFFER LOW ADDRESS wORD 
=o 
LIST 
-WORD C ; BUFFER SIZE 
-WORD 0 ; STATUS WORD 1 
‘ ; STATUS WORD 2 
~NLIST 
. ENOM 


see 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
Hy -~- 


POINTER BGNRPT 
HEADER CVNIA,A,0,0,1,PRIO7 


L $NAME : : 


LSREV:: 
LSDEPO: : 
LSUNIT:: 


LSHPTP:: 
LSSPTP:: 
LSLADP: : 
LSSTA:: 


Lsco:: 


LSDTYP:: 
LSAPT:: 


SESGESEDGES 


LSDTP:: 


SEQ 24 


LSLAST 

0 

0 

i 

Cc 
LSDISPATCH 


BRGGRAN MACROS 


000000 
000000 
002130 
104035 
000000 
102126 
103372 
103370 
102120 
000000 
000000 
000000 


104 
116 


; NAMES OF DEVICES SUPPORTED BY PROGRAM 


DEVTYP 


<DEQNA> 


Me 
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LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV: : 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP:: 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
LSLUN: : 
LSDESP:: 


a 


srr 


LSETP:: 
LSICP:: 
LSCCP:: 


SESRRGES 


LSTEST:: 
LSOLY:: 
LSHIME:: 


LSDVTYP:: 


re 
~ 


CSREVISION 
CseEDIT 


0) 
0 


0 
LsOvTYP 
LSRPT 


ooo dlh68lUO 


L$DESC 
ESLOAD 
1) 
LSINIT 
LSCLEAN 
LSAUTO 
LS$PROT 
e) 

.¢) 

0 


subsaas 


CISER/ 


Ne 
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; TEST DESCRIPTION 


; 
DESCRIPT <CVNID DEQNA NI EXERCISER> 


.EVEN 


: 
; FORMAT STATEMENTS USED IN PRINT CALLS 
: 


L$DESC:: 


SEQ 26 


-EVEN 


-ASCIZ /CVNID DEQNA NI EXER 


-EVEN 


BS 
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DISPATCH TABLE 
1444 .SBTTL OISPATCH TABLE 
1445 | 
1446 gee 
1447 ; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
seas : IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
3 -~_-*- 
1450 
1451 002162 DISPATCH 1 
002162 000001 . WORD 
002164 _SDISPATCH:: 


: 002164 103544 


i 
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DEF ALL T HARDWARE P - TABLE 
1460 .SBTTL DEFAULT HARDWARE P-T+3LE 
1461 
1462 s* 
1463 ; THE DEFAULT HARDWARE P - TABLE CONTAINS DEFAULT VALUES OF 
1464 3; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF Lge TABLE 
1465 ; IS IDENTICAL TO THE STRUCTURE OF THE HAROWARE P TABLES, 
saat ; AND IS USED AS A “TEMPLATE” FOR BUILDING THE P- TABLES. 
Bee 
1468 
1469 002166 SGNHW OFPTBL 
002166 000005 . WORD L 10000 -L $HwW/2 
70 L SH: 
002170 OFPTBL:: 
1470 
1471 002170 174440 . WORD 174440 ; CSR 
1472 002172 000300 . WORD 300 ; VECTOR 
th 002174 000240 . WORD PRIOS ; PRIORITY 
1484 
1485 002176 ENDHW 


002176 10000; 


DS 
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1 
1541 002200 


-SBTTL “SOFTWARE © TABLE 


"THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 


BGNSW SFPTBL 


ENOSW 


.SBTTL GLOBAL EQUATES SECTION 


:* 
: THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE T 
gee 
EQUALS 
; 
; BIT OIF INITIONS 
3 
BIT15== 100000 


BIT14== 40000 
BIT13== 20000 


BIT2+= BITO2 


SEQ 29 


L 10001 -L $SW/e2 


S. 
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000002 BITie= BITO1 
000001 BITO== BITOO 


. 
; EVENT FLAG DEFINITIONS 
; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


a 
000040 EF .START== 32. ; START COMMAND WAS ISSUED 
000037 EF .RESTART== 31. 3; RESTART COMMAND WAS ISSUE 
000036 EF .CONTINUE== 530. ; CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29. ; A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28. ; A POWER-FAIL/POWER-UP OCCURRED 


. 
; 
; PRIORITY LEVEL DEFINITIONS 


; 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRICS== 240 
000200 PRIO4== 200 
000140 PRIO3S== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 
e 
;OPERATOR FLAG BITS 
; 
EVL== cf 
000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE == 400 
001000 PNT== 1000 
002000 PRI== 2000 
000 IXE== 4000 
010000 IBE == 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== 100000 


Pa 
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i 
;CSR DEFINITIONS 
80 se BITOS 


EL se BITOS 
xC es BITie 


é 

;sDESCRIPTOR FIELDS 
; 
FLAGWORD == 9) 
STATS = 8. 
STAT4 es 10. 
é 

;DESCRIPTOR BITS 
ee BIT1S 


ITVECTOR== 4 


: 
CR *= 15 
LF 


3: sEQUATES FOR FLAG WORD: :::; 


CTARGT==0 
CASIST==1 
CSHCTR==2 
CCLNAD==4 
CCLNAL ==8. 
CExIT=-16. 


:BOOT/DIAGNOSTIC ROM 
;ELOOP 
; TRANSCEIVER 


;FLAG WORD 
;STATUS WORD 1 
sSTATUS WORD 2 


;VALIO BIT 


SEQ 31 


;OFFSET IN 4K ROM FOR VECTOR TO CITIZENSHIP TEST 


sARG TYPE FOR ‘SHOW COUNTERS’ 
sARG TYPE FOR ‘CLEAR NODE/ADR’ 
;ARG TYPE FOR ‘CLEAR NODE /ALL° 


3:;CLOCK ENABLE VALUES TO BE LOADED IN CLK’S CSR;;; 


LCLKEN==100 
PCLKEN=*111 
PCLKCT==1600 


Ls 
r 
g 
. 
- OSraeuv lSwfr dod 


O- - 


CLISTR= 


; L-CLOCK CSR VALUE TO ENABLE THE CLOCK 
; P-CLOCK CSR VALUE TO ENABLE THE CLOCK 
; P-CLOCK COUNT SET REGISTER FOR COUNTER 


SPECIAL CLI CODES FOR “CHAR” ARGUEMENT IN CLI CALLS 
(COMMAND LINE INTERPRETER DEFINITIONS) 


:DEFS FOR COMMAND LINE INTERPRETATION ACTION VALUES 


NULL =O 
HELP =1 


CMO 
CMD 
CMD 


GS 
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CEXADR=135 


MESSAGE TYPE VALUES 


ALPHA==0 
ONES==1 
ZEROS==2 
ONEAL T==3 
ZROALT==4 
CCITT#=5 
OPRSEL = =6 


GLOBAL EQUATES FOR THE DEQNA DRIVER 


SEQ 32 


HS 
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te50 4 Seal DE cea FUR THE GNA CSRS AND BUFFER 
TION CONTAIN 
ee arta he a Teles Re tak ae 
1656 : DEFINITIONS ARE A MASK OF THAT CSR BIT 
1e38 ooeee VRCVEN ie i. ; RECEIVER ENABLE BIT 
1660 000001 VRESET == O1 ; SOFTWARE RESET BIT 
ie62 900002 VNXM ey ; NON EXISTENT MEMORY BIT 
1664 900003 vBOOT 22 03 ; BOOT/DIAGNOSTIC ROM LOAD 
1666 900004 VINVXM —F ; XMIT LIST INVALID BIT 
1668 900005 VINVAC a ; RECEIVE LIST INVALID BIT 
1670 900006 VINTEN er ; ENABLE INTERRUPT ON BITS 2, 7, OR 15 
1672 900017 VACVIN a ; RECEIVE INTERRUPT REQUEST 
i674 $00010 VILOOP —_— ; INTERNAL LOOPBACK BIT 
1676 900011 VELOOP oR ; EXTERNAL LOOPBACK BIT 
1678 900012 VANITY <a ; SANITY TIMER ENABLE BIT 
1680 900015 VCARRIER —— ; CARRIER SENSE BIT 
1682 900007 VXMTIN ot On” ; XMIT INTERRUPT REQUEST 
1684 — ae Pir FOR THE DESCRIPTOR BITS WHICH ARE A PART 
te AEE SEEREIBS SF a 
1688 000006 VHIBYT == 6 ; XMIT BUFFER BEGINS ON HIGH BYTE 
1690 900007 vLOBYT ss ; XMIT BUFFER BEGINS ON LOW BYTE 
1692 000014 UXSETP ey ; PACKET IS A SETUP PACKET 
1698 900015 VEOM aye’ : END OF MESSAGE 
1696 000016 VCHADR ae ; ADRS IS ANOTHER LIST ADRS, NOT DATA 
1698 00001 7 YWALTD on ; VALID LIST ENTRY 
1709 — ey wens ARE FOR THE FIRST STATUS WORD FROM THE QNA 
1702 ST OEND CIN THE BUFFER DESCRIPTOR LIST ENTRIES WHEN A XMIT COMPLETES 
1706 000010 VFAIL == 10 : 


1707 000400 MF ATL == 400 
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000000 
000010 


ee 


SEQ 34 


XMISSION ABORTED, TOO MANY COLLISIONS 
NO CARRIER SEEN DURING XMISSION 
CARRIER LOST DURING TRANSMISSION 

XMIT BUFFER IS USED/IN USE 

XMIT ERROR OCCURRED 

LAST XMIT BUFFER OF A MESSAGE 


ARE THE DEFINITIONS FOR STATUS WORD 2 WRITTEN BY THE QNA. THESE 


TIME DOMAIN REFLECT. BIT O 
SIZE OF TIME DOMAIN REFLECT. FIELD 


‘ 
; THE FOLLOWING DEFINITIONS ARE FOR STATUS WORD 1 ON A RECEIVE OPERATION 


RECEIVER OVERFLOW OCCURRED 

CRC ERROR, IGNORE IF DISCARD NOT SET 
RECEIVE FRAMING ERROR OCCURRED 

PACKET OF LESS THAN TEN BYTES RCVD 
RECEIVED BYTE LENGTH BIT & 

SIZE OF RECEIVED BYTE LENGTH FIELD 
RUNT PACKET RECEIVED, DISCARD MESSAGE 
DISCARD THE CURRENT MESSAGE 


PACKET RECEIVED WAS TOO LARGE 


RECEIVE BUFFER IS OR BEING USED 
RECEIVE ERROR OCCURRED 
LAST RECEIVE BUFFER OF A MESSAGE 


; THE FOLLOWING DEFINITIONS ARE FOR STATUS WORD 2 AFTER A RECEIVE OPERATION 


RECEIVED BYTE LENGTH 
SIZE OF RECEIVED BYTE LENGTH FIELD 


; 
; THE FOLLOWING DEFINITIONS ARE FOR THE FLAG WORD IN THE BUFFER DESCRIPTOR 


VABORT -= 13 
MABORT == 4000 
VNOCAR == 13 
MNOCAR - 
VLOSS == 14 
MLOSS s= 10000 
VXUSED == 16 
MXUSED == 40000 
VXERRS s= 16 
MXERRS z= 40000 
VXLAST == 15 
MXLAST s= 100000 
é 
; FOLLOWING 
; ARE XMIT STATUS DEFINTIONS 
; 
VTOR ss © 
STOR s= 16 
© 
VOVF z= O 
MOVF ss 1 
VCRC ss 1 
MCRC #2 2 
VFRAM ss 2 
MF RAM as 4 
VSHORT a= 3 
MSHORT == 10 
VRBL s= 10 
SRBL ss 3 
VRUNT s= 135 
MRUNT z= 4000 
vOISsCc s= 14 
MDISC == 10000 
VRLONG s= 15 
ONG ao 
VRSETP *2: 15 
MRSE TP s2= 20000 
VRUSED == 16 
MRUSED == 40000 
VRERRS == 16 
MRERRS z= 40000 
VRLAST ss 17 
MRLAST s= 100000 
é 
‘ 
VRBL 22 O 
SRBL ss 10 
; ENTRIES 
. 
VF USED *= 16 
MF USED == 40000 
VFERRS == 16 


; THIS BUFFER IS OR BEING USED FLAG 
; ERROR OCCURRED FLAG 


J5 
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040000 
000017 
100000 


000016 
000000 


000006 
000014 


; LAST BUFFER OF A MESSAGE 


SEQ 55 


; OFFSET (SIZE) TO END OF HEADER IN BITES 
ADDRESS 


; DESTINATION 
; SOURCE ADDRESS 
; PROTOCOL TYPE FIELD 


MFERRS == 40000 
VFLAST ss 17 
MFLAST == 100000 | 
ETHERNET PACKET OFFSETS 
H 
fs ss 14. 
DESTIN == ¢) 
CC == 6 
PROTOT == le. 
‘ 
; MISCELLANEOUS DEFS 
XPKLEN == 1100 
RPKLEN == 1100 
TBLLEN == 40. 
STBLEN == 90. 
FRDADR == 4 
‘ 


; SYSTEM ID REPLY 


RIFUNC == 20 


; 
; LOOP DIRECT OFFSETS 


LDSKIP == 16 
LOFCT1 == 20 


LDADR2 == 32 


; 
; FULL ASSIST OFFSETS 


FASKIP == 16 
FAFCT1 == 20 
FAADR1 == 22 
FAFCT2 == 30 
FAADRe «= 32 
FAFCTS == 40 
FAADRS == 42 
FAFCT4 == 50 
FAADR4 == 52 


: 
; COUNTER OFFSETS 
; 


C.SIzZ = 0 
C.SECS =" 2 
C.PREC == 4 


MESSAGE OFFSETS 


XMT PACKET LENGTH IN BYTES 

RCV PACKET LENTH IN BYTES 

NODE TABLE LENGTH (CHANGE STBLEN IF 
THIS IS CHANGED, OR ELSE!) 

SUMMARY TABLE LENGTH (= 2.25 xX TBLLEN) 

OFFSET FOR MESSAGE HEADERS 
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SYP bee REP tone. EXERC? 

000010 C.MREC == 10 
tess 000014 C'RERB == 14 
1824 000016 C’RERR == 16 
1825 000020 C"RDAT == 20 
1826 000024 C'RMDB == 24 
1827 000030 C'RLIN == 30 
1828 000032 C’RLEX == 32 
1829 000034 C'PXMT == 34 
1830 000040 C'MXMT == 40 
1831 000044 C{PXM3 == 44 
1832 000050 C“PXM2 == 50 
1833 000054 C'PXMD == 54 
1834 000060 ©" XDAT == 60 
1835 000064 C|XMDB == 64 
1836 000070 C’XABB == 70 
1837 000072 C’XABT «= 72 
1838 000074 C{COLL == 74 
+380 : XMIT ABORT REASON MASK BIT DEFINITIONS 
iga> 000001 , C.RTRY == BITOO 
1843 000002 C'LCAR == BITOL 
1844 000004 C'SHRT == BITO2 
1845 000010 C/OPEN == BITO3 
1847 ; RECEIVE ERROR REASON MASK BIT DEFINITIONS 
1848 3 
1849 000001 C.CRC == BITOO 
1850 000002 C'FRAM == BITOL 
1851 000004 C'MLEN == BITO2 
1852 000010 C’RUNT == BITO3 
1854 ; ROUTINE FUNCTION CODES 

@ 
000000 BMPRCV == 0 ; UPDATE RECEIVE COUNTERS 
ret 000001 BMPXMT == 1 ; UPDATE TRANSMIT COUNTERS 
1858 000000 INIADR == 0 ; INITIALIZE ADDRESS SETUP TABLE 
1859 000001 ADDMUL == 1 ; ADD MULTICAST ADDRESS TO SETUP TABLE 
1860 000002 KILMUL == 2 ; KILL MULTICAST ADDRESS IN SETUP TABLE 
1861 000000 XMTSET == 0 ; XMIT AN ADDRESS SETUP PACKET 
1862 000001 XMTDAT == 1 ; XMIT A DATA PACKET 
1864 ; FUNCTION CODES FOR LOOP-SERVER PACKETS 
1866 000002 FORWRD «= 2 
1867 000001 REPLY == 1 
1868 000005 IOFUNC == 5 
; 

1870 * QNA DEVICE REGISTER OFFSETS 
; 

1872 000000 NETADD == 0 

1873 000004 LORCV. == 4 

1874 000006 HIRCV == 6 

1875 000010 LOXMT == 10 

1876 000012 HIXMT == 12 

1877 000014 VECTOR == 14 

1878 000016 CSR 1s 


ha 
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IT 


z 
;BUFFER DESCRIPTOR OFFSET DEFINITIONS 


SEQ 57 
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194 32 
1947 003246 


177777 
177777 


177777 


177777 
177777 


177777 
000000 


SEQ 38 


.SBTTL GLOBAL DATA SECTION 


i os 
;COMMAND LINE BUFFER, DATA LOCATIONS AND MESSAGES FOR ACTION ROUTINES 


PSAERR: 
PSMERR: 


HLPTAB: 


555585585 


: .BLKB 


83: 


EEE 


see 
pa 


si SENS 


72. 


coooooooorTnooo°0° 


ooocoooooo 


; INDICATES THAT WE ARE IN TABLE BUILD MODE 
;BUFFER FOR OPERATOR COMMANDS 
é 


;BUFFER FOR NODE ADDRESS 


;BUFFER FOR ALPHANUM. ADDRESS STRING 


sPOINTER FOR BEGINING OF ADDRESS STRING 
;LOC. TO HOLD MESSAGE TYPE 
;LOC. TO HOLD MESSAGE SIZE 
;LOC. TO HOLD NO. OF MESSAGE COPIES 
;LOC. TO HOLD NO. OF PASSES 
; NUMBER OF RETRIES FOR LOSS OF _ 
; NUMBER OF RETRIES robe NO CARRIER 
NODE T FOR Ay TABLE SETUP 


; SPACE FOR NODE TABLE 
sFILL LAST FOUR BYTES OF TABLE WITH ONES 


;SPACE FOR SAVE TABLE 

; ILLEGAL ADDRESS FOR COMPARISON 

; (MUST NOT BE PHYSICALLY SEPARATED FROM 

; END OF SAVTBL) 

; BUFFERS SUMMARY TABLE FOR SUMMARY REPORT 
;SPACE FOR SUMMARY TABLE 


; INDICATES IF WE ARE IN RESPONDER MODE 


TRAVERSE LOCATIONS CUSED BY “PSTRV”) 


;LOC. TO HOLD ADDR. OF CMD LINE are 


;LOC. TO BE A COUNTER LOCATION 

;LOC. TO HOLD NUMERIC VALUE FROM PARSE 

;LOC. TO HOLD RADIX(LO) € +/-CHI BYTE) 
OF COMMAND FOUND 


;RETURN CODE O IF NO ERROR FOUND 

sRETURN O IF 12 DIGIT ADDRESS ENTERED 
sRETURN -1 IF ERROR IN OPERATOR SELECTED 
sMESSAGE INPUT OCCURED, O FOR GOOD INPUT 


GLOBAL DATA SEC 


NS 
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056232 . WORD HELP11 
0563 . WORD HLP115 
056435 .WORD HELP12 
056542 .WORD HELP13 
1 . WORD HELP14 
056740 .WORD HELP15 
0570453 . WORD HELP16 
057132 . WORD HELP17 
057235 . WORD HELP18 
7 .WORD HELP19 
057410 .WORD HELP20 
057466 . WORD HELP21 
057551 . WORD HELP22] 
057652 .WORD HELP23 
057752 .WORD HELP24 
060102 .WORD HELP25 
060166 .WORD HELP26 
060272 .WORD HELP27 
060374 .WORD HELP28 
060513 .WORD HELP29 
060563 .WORD HELP3O 
000000 HLPEND: .WORD 0O 
061536 MSGTAB: .WORD MSGTYO sMESSAGE TYPE ASCII ADDRESS TABLE 
061544 .WORD MSGTY1 
061551 .WORD MSGTY2 
061557 .WORD MSGTY3 
061564 .WORD MSGTY4 
061571 .WORD MSGTYS 
061577 .WORD MSGTY6 
; THIS SECTION DEFINES THE DATA PATTERNS USED Br THE EXERCISER 
MSGCNT: : 
000130 MSGOC: .WORD MSGO -MSGOO ; THE NUMBER OF BYTES IN EACH MESSAGE 
000001 MSGiIC: .WORD $EMSG1-MSGO1 
000001 MSG2C: .WORD EMSG2- 
000001 MSG3C: .WORD EMSG3-MSGOS 
000001 MSG4C: .WORD $EMSG4-MSGO4 
000100 MSGSC: .WORD #EMSGS-MSGO5S 
MSG6C . WORD 
MSGAD: : 
003376 .WORD M™SGOO 
3 .WORD MSGO1 
003527 -.WORD M™SGO2 
003530 .WORD MSGO3 
003531 -WORD M™SGO4 
003532 .WORD M™SGOS5S 
003632 -WORD OPSLBF 
040 041 042 MSGOO:: .ASCII \ !“@$86'( e+, -/0123456789: ;< => 2@ABCDEFGHI JKLMNOPQRS TUVWXYZ\ 
043 044 045 
046 047 050 
051 0S2 053 
054 055 057 
060 061 062 
065 064 065 
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A SECTION 
003425 066 067 070 
003426 O71 072 073 
003431 074 075 076 
003434 077 100 101 
005437 102 103 104 
003442 105 106 107 
003445 110 111 112 
003450 113 114 i115 
003453 116 117 120 
003456 121 122 123 
003461 124 125 126 
3464 127 130 131 
003467 132 
1999 003470 133 135 136 .ASCII \{ )*-ABCDEFGHIJKLMNOPORS TUVWXYZ. ; ALPHANUMERIC 
0034753 055 101 102 
003476 103 104 105 
003501 106 107 110 
003504 111 1l2 113 
003507 114 115 116 
003512 117 120 121 
003515 122 125 124 
3 125 126 127 
003525 130 131 132 
2000 003526 EMSGO: : 
2001 003526 377 MSGOI1:: .BYTE 377 s MESSAGE OF ALL ONES 
2002 003527 EMSG1:: 
2003 003527 000 mMSGO2:: .BYTE 90 : MESSAGE OF ALL ZERCS 
2004 0035350 EMSG2: : 
2005 003530 252 MSGOS:: .BYTE 252 ; MESSAGE OF ALTERNATING ONES 
003531 EMSGS:: 
2007 003531 125 MSGO4:: .BYTE 125 ; MESSAGE OF ALTERNATING ZEROS 
2008 3532 EMSG4:: 
2009 003532 MSGOS:: ; CCITT Sil BIT TEST PATTERN 
2010 003532 177603 157427 031011 . WORD 177603,.157427,031011. 047321, 163715.105221 
003540 047321 163715 105221 
2011 003546 143325 142304 040041 . WORD 143325, 142304 ,040041 , 104116,052606, 172554 
003554 104116 172334 
2012 003562 105025 123754 111327 . WORD 105025, 123754, 111337,111523,030030, 145064 
003570 111523 145064 
2013 003576 137642 143531 063617 . WORD 137642, 143531 ,063617,135075,066730,026575 
135075 730 026575 
2014 003612 052012 053627 070071 WORD 052012,053627,070071,151172,. 165044 ,031605 
151172 165044 031605 
2015 1666 016147 . WORD 166632 ,016147 
2016 003632 EMSGS: 
oad 003632 OPSLBF: .BLKB 66. ;BUFFER FOR OPERATOR SELECTED MESSAGE TYPE 
2019 
aoe 003734 000000 CFLAG: .WORD 0O sACTION ROUTINE CMD ARGUMENT FLAG 
2022 3;CLOCK TABLES, EVENT LOG AND POINTERS 
2023 003736 000000 CLKCSR: .WORD O ; CLOCK CSR ADDRESS 
2024 003740 000000 CLKBR: .WORD O ; CLOCK INTERRUPT LEVEL 
2025 003742 000000 CLKVEC: .WORD 0 ; CLOCK INTERRUPT VECTOR 
003744 000000 CLKHZ: .WORD 0O ; CLOCK'S FREQUENCY IN HERTZ 
2027 003746 000000 CLKEN -WORD O ; CLOCK’S CSR VALUE TO INTRPT, ENABLE IT 
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2029 003750 
ery 003752 


177777 
177777 
177777 


000317 


023772 


C4 


TIMMIN: .WORD 0O ; PLACE TO KEEP TIME-SINCE-START 
TIMSEC: .WORD 0 
TIMTCK: . 0 s PLACE TO KEEP NO. OF TICKS/SEC. 
TIMER1: .WORD 0O ; EVENT TIMER @1 (TICKS) 
TIMER2: .WwORD O ; EVENT TIMER @2 (TICKS) 
TIMERS: .WORD O ; EVENT TIMER 03 (SECONDS) 
.EVEN 
i 
:B8US ADDRESSES OF QNA HARDWARE REGISTERS 
ROMADi1::.WORD 0O 3;0N READ, GET QNA ADDRESS. LOWER BYTE OF 1ST 
WORD O ; THREE REGISTERS. 
RLSTLO::.WORD O ;LOW BYTE OF STARTING ADDRESS OF RECEIVE LIST 
RLSTHI::.WORD O s4IGH BYTE OF STARTING ADDRESS OF RECEIVE LIST 
é 
; DEFAULT PHYSICAL NODE ADRRES 
3 
DEPADR: : -WORDB O ; PHYSICAL ADDRESS WORD O 
-.WORD O ; PHYSICAL ADDRESS WORD 1 
.WORD O ; PHYSICAL ADDRESS WORD 2 
4 
; ADDRESS OF ALL ZEROES, USED TO INIT THE TARGET ADDRESS TABLE 
H 
NOADR:: : . WORD 0 
.WORD O 
-WORDB O 
‘ 
; CURRENT PHYSICAL ADDRESS 
é 
PHYADR: : -WORD O ; PHYSICAL ADDRESS WORD O 
-WORDB O ; PHYSICAL ADDRESS WORD 1 
-WORDB O ; PHYSICAL ADDRESS WORD 2 
; BROADCAST ADDRESS - FF -FF -FF -FF -FF -FF 
: 
BRDAOR : . WORD -1 
. WORD -1 
. WORD -1 
3 
; LOOP-SERVER MULTICAST ADDRESS - CF -00-00-00-00-00 
; 
LPADR: : . WORD 317 
-WORD O 
-WORDB O 
; 
; DECNET MULTICAST ADDRESS FOR CONSOLE ID - AB-00-00-02-00-00 
b 
MCSTAD: WORD 253 
. WORD 1000 
.WORDB O 
3 
; RCV RING DESCRIPTOR ENTRY FOR SETUP MODE 


« 
LORTGT: 


: 
; AGAIN FOR LAST ENTRY 

WORD 100000 3 

WORD RCVIGT : 


SET VALIO BIT 
ADDRESS OF RECEIVE BUFFER 


SEQ 41 


LOW ADRS OF TARGET ADRS TBL DESCRPTR 


D4 


EYNARAOD RE RNG: PF BAERS ISER DIAG MACRO M1200 22-MAR-84 13:12 PAGE 9-4 SEQ 42 
2086 004046 000000 weep ¢] 
2087 004050 000000 , 0 
2088 004052 000000 . WORD 0 
2089 004054 000000 .WORD O ; JUST ENOUGH OF THE NEXT DESCRIPTOR 
poss 004056 000000 . WORD 0 ; TO INVALID LIST 
3 
aose ; XMIT RING DESCRIPTOR ENTRY FOR SETUP MODE 
3 
2094 004060 LOXTGT: :; LOW ADRS OF TARGET ADRS TBL DESCRPTR 
2095 060 000000 .WORDB O 3 AGAIN FOR LAST ENTRY 
2096 004062 100000 . WORD 100000 ; SET VALIO BIT 
2097 023570 . WORD TGTAOR ; ADDRESS OF TARGET FIELD 
2098 004 000000 . WORD 
004070 000000 . WORD 0 
2100 004072 000000 -WORD O 
2101 004074 000000 .WORDB O ; JUST ENOUGH OF THE NEXT DESCRIPTOR 
tes 004076 000000 .WORD O ; TO INVALID LIST 
1 3 
ye ; CITIZENSHIP TEST SETUPS 
2106 sRECEIVE BUFFERS 
2107 000100 SMLSIZ == 64. ;SMALLEST SIZE IN BYTES OF ETHERNET PACKET 
2108 000151 RBUFNR == 105. ;NUMBER OF RECEIVE BUFFERS 
ey 004100 RBUFB: .BLKB RBUFNReSMLSIZ 3100 RECEIVE BUFFERS, 64 BYTES EACH. 
3 
tte sRECEIVE DESCRIPTORS 
; 
2115 ; THERE ARE RBUFNR+1 DESCRIPTORS. ALL OF THEM EXCEPT THE LAST ONE 
2114 3; ARE DATA DESCRIPTORS, I.E. THE ONLY CHAIN DESCRIPTOR IS THE LAST 
2115 ; ONE TO CREATE A RING. COMMUNICATIONS WITH THE TESTER IS 
2116 ; WALF-DUPLEX, I.E. PACKETS ARE RECEIVED ONE AT A TIME UNTIL THE 
Site ; COMPLETE MESSAGE IS RECEIVED. 
3 
2119 000014 RDESSZ == 12. ;SIZE IN BYTES OF EACH RECEIVE DESCRIPTOR 
2120 002354 RDESAL == RDESSZ+RBUF NR :SIZE IN BYTES OF ALL DESCRIPTORS 
2121 021200 RDESC: .BLKB RDESAL ; STORAGE FOR RBUFNR RECEIVE DESCRIPTORS 
2l22 023554 .BLKB RDESSZ ; PLUS CHAIN DESCRIPTOR TO GIVE A RING 
2123 .EVEN 
2124 : 
2125 ; 
Stee sCITIZENSHIP WORK BUFFER 
; 
2128 3;THE BOOT/DIAG ROM LOADS INTO THE FIRST 4KB OF THE RECEIVE BUFFERS. THE 4KW 
2129 ; WORK BUFFER EXTENDS FROM THERE THROUGH THE TRANSMIT BUFFERS INTO THE 
2130 ; STORAGE AREA THAT IS CREATED BELOW. 
2131 014100 CITWORK =< RBUFB +4096. ;BEGINNING OF 4KW WORK BUFFER 
otat 024100 CITWEND == CITWORK +4096. sEND+1 OF WORK BUFFER 
; 
2134 ; 
oo ; TABLE OF TARGET ADDRESSES USED IN SETUP MODE 
3 
2137 023570 TGTADR: 
2138 023570 -BLKB 8. ; BYTE O OF ALL ADDRESSES 1-7? 
2139 023600 BLKB 8. ; BYTE 1 ” . wile 
2140 023610 .BLKB 8. ; BYTE 2 " * 
2141 023620 .BLKB 8. ; BYTe & “ - 
2142 023630 BLKB 8. ; BYTE 4 


E4 
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GLOBAL DATA SECTION SEQ 45 
2 1 SB 5 023640 BLKB 8 i ies Y TE 5 . ” ” ’ 
2144 023650 BLKB 8 i BY TE 6 ” ” ‘ ” 
2145 02 BLKB 8 ; BYTE 7 “ ” oo 
2146 025670 BLKB 8 ; BYTE O OF ALL ADDRESSES 8 - 14 
2 14 7 023700 BLKB 8 ; BY TE ; # ” ” ” 
2148 023710 BLKB 8 ; BY TE 2 ” “ ” ” 
2 149 0235 720 BLKB 8 ; BY TE 3 ” ” ” ” 
2150 023730 .BLKB 8 ; BYTE 4 ” “ ” ” 
2151 023740 BLKB 8 ; BYTE S ” ” ” ” 
2 152 023 750 BLKB 8 ; BY TE 6 ” ” ‘ ” 
2153 023760 .BLKB 8 ; BY TE 7 “ ” ’ ” 
2154 023770 TGTSI2: 
2155 023770 000200 WORD TGTSIZ - TGTAOR ; SIZE OF THE TARGET ADDRESS 
5 
eu ; RECEIVE BUFFER FOR TARGET ADDRESSES LOOPED BACK IN SETUP MODE 
1 ; 
2159 023772 RCVTGT: 
2160 025772 -BLKB 8. ; BYTE O OF ALL ADDRESSES 1-7 
2161 024002 -BLKB 8. ; BYTE 1 ” " » 
2162 0240 12 @ BLKB 8 . 3 BY TE 2 ” ” ” ” 
2 163 024022 . BLKB 8 . 3 ar TE & ” ” ” “ 
2 164 024032 . BLKB 8 . 3 BY TE 4” ” ” ” 
2165 024042 P BLKB 8 . 3 BY TE 5 “ ” ” ” 
2166 024052 .BLKB 8. ; BYTE 6 ” ” .“ 
2167 024062 .BLKB 8. ; BYTE 7" "= = * 
2168 024072 ‘BLKB 8. ; BYTE © OF ALL ADDRESSES 8 - 14 
2169 024102 .BLKB 88. ; BYTE 1 ” ” - 
21 70 024 1 12 . KB 8 . 3 BY TE 2 ” ’ ” rn 
2171 024122 "BLKB OB. ces 6 
2 1 72 024 1 32 . BLKB 8 ° 3 BY TE 4 ” oe Pm ” 
2 1 73 024 142 d BLKB a m ; Gyr TE 5 7 ” ” 
21 74 024 152 ‘ BLKB Ba . : BY TE & “ ” ” or 
eras 024 162 . BLKB 8 . : BY TE 7 ” 
é 
ot oe ; TABLE OF START ADDRESS OF RECEIVE RING BUFFERS 
é 
2179 024172 RRNGTB: : 


2180 024172 025674 


2181 024174 026774 .WORD RRGOO2 
2182 024176 030074 .WORD RRGOOS 
2183 024200 0351174 .WORD RRGOO4S 
2184 024202 032274 .WORD RRGOOS 
2185 024204 033374 . WORD 
2186 024206 034474 -WORD RRGOO7 
Sy 024210 035574 .WORD RRGO1LO 
; 
pa ; TABLE OF START ADDRESS OF TRANSMIT RING BUFFERS 
; 
2191 024212 XRNGTB: : 
2192 024212 024574 -WORD XRGOO1 
S198 ; POINTERS TO DESCRIPTOR RING ENTRIES 
“ 
2195 024214 024236 XRGSRT: : -WORD XRING ; FIRST ENTRY IN TRANSMIT RING 
2196 024216 024260 RRGSRT: ; -WORD RRING ; FIRST ENTRY IN RECEIVE RING 
2197 024220 0242356 XRGCUR: : -WORD XRING ; CURRENT ENTRY IN TRANSMIT RING 
2198 024222 024260 RRGCUR: : -WORD RRING ; CURRENT ENTRY IN RECEIVE RING 
2199 024224 024236 XRGNXT: : .WORD XRING ; NEXT ENTRY IN TRANSMIT RING 


F4 
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SY OBAC DATA SECTION = 
2200 024226 024 RRGNXT: .WORD RRING ; NEXT ENTRY IN RECEIVE RING 
2201 024230 024236 XRGLST:: . WORD XRING 3; LAST ENTRY IN TRANSMIT RING 
2202 024232 024544 RRGLST:: .WORD RRINGH ; LAST ENTRY IN RECEIVE RING 
oe 024234 024544 RRGPRV: : WORD RRINGH s PREVIOUS DESCRIPOTR POINTER 
3 
2208 0242 XRING 
2209 024236 RNGFRM xXRGOO,B,O 
24236 000000 -WORD O ; FLAG WORD 

024240 100000 . WORD 100000 s SET VALIO BIT COSCR/HIGH ADDRESS WRD) 

024242 024574 . WORD xRGOO1 ; SEGMENT BUFFER ADDRESS 

024244 000000 .WORDB O ; BUFFER SIZE 

024246 000000 .WORDB O 3 ATUS WORD 1 

024250 000000 .WORDB O s STATUS WORD 2 
2210 024252 XRINGH: 
2211 024252 XRGINV: 
2212 024252 000000 .WORDB O ; JUST ENOUGH OF THE NEXT DESCRIPTOR 
2213 024254 000000 .WORDB O ; TO INVALIDATE LIST 
2214 024256 RNGSIZ: 
2215 024256 000004 . + XRINGH ; SIZE OF DESCRIPTORS 
2219 024260 RRING: : 
2220 000007 -REPT 7 
2221 ».NLIST 
2222 RNGFRM RRGOO,B, -RPKLEN/2 ; ENTER BUFF ADD, BUF OFFSET. BUF SIZE 
2223 .LIST 
ePe4 ‘ 
2225 3 
2226 024404 .WORD O ; AGAIN FOR LAST ENTRY (FLAG WRD) 
2227 024406 . WORD 100000 ; DESCR/HIGH ADDRESS WORD 
2228 024410 035574 -WORD RRGOLO ; LOW ADDRESS WORD 
2229 024412 177340 . WORD -RPKLEN/2 ; BUFFER SIZE (CTWO’S COMPLEMENT ) 
2230 024414 000000 .WORDB O ; STATUS WRD i 
2231 024416 000000 -WORD O ; STATUS WRD 2 
2232 3 
2236 5 
2237 000007 .REPT 7 
2238 -NLIST 
2239 RNGFRM RRGO1,.B, -RPKLEN/2 ; ENTER BUFF ADD, BUF OFFSET. BUF SIZE 
2240 LIST 
2241 .ENOR 
2242 024544 RRINGH: : 
2243 024544 000000 -WORDB O ; AGAIN FOR LAST ENTRY CFLAG WRD) 
2244 024546 000000 -WORDB O ; LEAVE THIS ONE INVALID 
2245 024550 046574 . WORD 20 ; LOW ADDRESS WORD 
2246 024552 177340 . WORD -RPKLEN/2 ; BUFFER SIZE CTWO'S COMPLEMENT ) 
2247 024554 000000 . WORD ; STATUS WRD 1 
2248 024556 000000 . WORD 0 ; STATUS WRD 2 
2249 560 RRGCHN: : 
2 024560 000000 .WORDB O 
2251 024562 140000 . WORD 140000 ; DESCRIPTOR TO CHAIN TO BEGINNING OF RING 
2252 024564 024260 -WORD £ARRING ; ADORESs OF START OF DESCRIPTOR RING 
2253 566 000000 -WORDB O ; BYTE COUNT CUNNECESSARY ) 
2 024570 000000 . WORD 0 ; STATI 
2255 024572 000000 . WORD 0 ; STATe2 
2256 ; 
2257 A 
pS 024574 XRGOOL:: .BLKB XPKLEN ; XMIT RING BUFFER 

: 
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2260 025674 RRGOOL: : .BLKB RPKLEN ; RECEIVE RING BUFFERS 
2261 026774 RRGOO2: : .BLKB RPKLEN 
030074 RRGOOS: : .BLKB RPKLEN 
2263 031174 :: .BLKB RPKLEN 
2264 032274 RRGOOS:: .BLKB RPKLEN 
2265 033374 RRGOOE: : .BLKB RPKLEN 
034474 RRGOO?: : KB RPKLEN 
2267 035574 RRGO1O: .BLKB RPKLEN 
2268 036674 RRGO1L1:: .BLKB RPKLEN 
2269 037774 RRGO12:: .BLKB RPKLEN 
2270 041074 RRGO13:: .BLKB RPKLEN 
2271 042174 RRGO14:: BLKB RPKLEN 
2272 043274 RRGOLS:: .BLKB RPKLEN 
2273 044374 RRGOIE:: .BLKB RPKLEN 
2274 045474 RRGOL7:: .BLKB RPKLEN 
2279 046574 2: .BLKB RPKLEN 
G 
ee7? ; CONSOLE ID INFORMATION 
‘ 
2279 047674 IDTDAT: 
2280 047674 , 6 3; DESTINATION ADDRESS FIELD 
2281 047702 .BLKB ; SOURCE ADDRESS FIELD 
2282 047710 001140 : 1140 ; CONSOLE ID TYPE CODE 
2283 047712 28. ; NUMBER OF VALID DATA BYTES TO FOLLOW 
2284 047714 007 .BYTE 7 3; SYSTEM ID FUNCTION CODE 
2285 047715 BYTE ; PAD BYTE 
2286 047716 046507 ‘ 46507 ; RECEIPT NUMBER ;; N.M. (CHANGED FROM 51115 TO 46507) 
2287 047720 ‘ ; MOP VERSION TYPE 
2288 047722 000 BYTE O ; MOP VERSION LENGTH 
2289 047723 000 .BYTE O ; MOP VERSION VERSION 
047724 000 .BYTE O : ION 
2291 047725 000 BYTE 0 ; MOP VERSION USER ECO 
2 047726 000002 2 ; FUNCTION TY 
2293 047730 001 .BYTE 1 3; FUNCTION LENGTH 
047731 000 .BYTE 0 ; MAINTENANCE FUNCTIONS SUPPORTED 1 
2295 047732 000 .BYTE O ; MAINTENANCE FUNCTIONS SUPPORTED 2 
047733 007 BYTE 7 ; HARDWARE ADDRESS TYPE 
2297 047734 000 .BYTE 0 ; SECOND BYTE OF ADDRESS TYPE 
047735 006 BYTE 6 ; HARDWARE ADDRESS LENGTH 
2299 047736 -BLKB 6 ; HARDWARE ADDRESS VALUE 
2300 047744 144 .BYTE 100. ; DEVICE TYPE FIELD 
2301 047745 000 BYTE O ; DEVICE TYPE FIELD BYTE 2 
047746 001 BYTE 1 ; LENGTH OF DEV TYPE FIELD 
2303 047747 005 .BYTE 5 ; DEQNA DEVICE TYPE 
2304 047750 -BLKB 65.-49. ; PAD THE REST OF THE PACKET ;; N.M. (CHANGED 43 TO 49) 
2305 ; 33 N.M. CUSED TO BE .EVEN HERE) 
2306 047770 IDTSIZ: 
2307 047770 000074 .WORD . - IDTDAT 
; 
oe ; INFORMATION ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P- TABLE 
‘ 
oath ; PTABLE INFO STORAGE FOR UNIT O 
ao 
2313 047772 000000 QNAADO: : .WORD 0 s;DEVICE ADDRESS FROM PTABLE 
2314 047774 000000 QNAVCO: : .WORD O ;VECTOR ADDRESS FROM PTABLE 
2315 047776 000000 QNAPRO: : .WORD 0 sPRIORITY FROM PTABLE 
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SEQ 46 


oete 3 REGISTER CONTENT HOLDING LOCATIONS FOR UNIT NUMBER O 
1 
2319 050000 NE TADO: .BLKW 2 ; HOLDS CONTENTS OF STATION ADDRESS ROM 
ease 050004 CSRO:: .BLKW 1 ; HOLDS CONTENTS OF CSR REGISTER 
: 
ose : PTABLE INFO STORAGE FOR UNIT 1 
; 
2324 000000 QNAAD1 .WORDB O ;CSR ADDRESS FROM PTABLE 
2325 050010 000000 QNAVC1:: .WORD O ;sVECTOR ADDRESS FROM PTABLE 
aoe 050012 000000 QNAPR1 .WORDB O sPRIORITY FROM PTABLE 
: 
pire : CSR LOCATIONS FOR UNIT NUMBER 1 
; 
2330 050014 NETAD1 .BLKW 2 ; HOLDS CONTENTS OF STATION ADDRESS ROM 
2331 CSR1: .BLKW 1 ; CONTENTS OF CSR REGISTER 
2332 : 
; 
2335 050022 000000 FRESIZ::.WORD O ;sPOINTER TO WORD CONTAINING SIZE OF FREE MEMORY 
2336 050024 000000 FREMEM::.WORD 0O ;sPOINTER TO FREE MEMORY SPACE 
ed 050026 000000 UNIT:: .WORD O ;CURRENT UNIT NUMBER BEING TESTED 
3 
oaee : SUMMARY DATA COUNTERS 
; 
2341 000000 S.REC:: .WORDB O ; MESSAGES RECEIVED 
2342 050032 000000 S.NREC:: -WORD O ; MESSAGES NOT RECEIVED 
2343 000000 S.LEN:: -WORDB 0O ; LENGTH ERRORS 
2344 050036 000000 S.COMP: .WORD O ; COMPARE ERRORS 
2345 050040 000000 S.BYTE:: .WORD O ; BYTES COMPARED 
sae 050042 000000 S.xXFER: .WORDB O ; BYTES TRANSFERED 
; 
ies 3 SUMMARY LINK STATISTICS 
: 
2350 050044 UCBile: ; THIS AREA BUFFERS THE COUNTERS WHEN PRINTED 
2351 050044 .BLKB 100 ; SIZE OF BUFFER FOR COUNTER 
2352 050144 CNTRS: 
2353 050144 000076 .WORD CNTEND - CNTRS ; SIZE OF COUNTER DATA BASE 
2354 050146 000000 -WORD O ; SECONDS SINCE LAST ZEROED 
2355 050150 BLKW 2 ; PACKETS RECEIVED 
2356 050154 BLKW 2 ; MULTICAST PACKETS RECEIVED 
2357 050160 000000 ‘ 0 ; RECEIVE ERROR REASON MASK 
2358 050162 000000 : 0 ; NUMBER OF PACKETS RECEIVED WITH ERRS 
2359 050164 .BLKW 2 ; NUMBER OF DATA BYTES RECEIVED 
2360 050170 _BLKW 2 ; MULTICAST DATA BYTES RECEIVED 
2361 050174 000000 ' 0 ; RCV PACKETS LOST - INTERNAL BUFF ERR 
2362 050176 000000 ’ 0 ; RCV PACKETS LOST - LOCAL BUFFER ERR 
2363 0 .BLKW 2 ; PACKETS XMITTED 
2364 .BLKW 2 ; MULTICAST PACKETS XMITTED 
2365 050210 .BLKW 2 ; XMIT SUCCESS AFTER 3 OR MORE TRIES 
2366 050214 .BLKW 2 ; XMIT SUCCESS AFTER 2 TRIES 
2367 050220 .BLKW 2 ; XMISSIONS THAT HAD TO BE DEFERRED 
2 050224 .BLKW 2 ; BYTES TRANSMITTED 
2369 050230 .BLKW 2 ; NUMBER OF MULTICAST BYTES XMITTED 
2370 050234 000000 WORD O ; ABORTED XMISSIONS, REASON MASK 
2371 050236 000000 .WORD O ; COUNT OF ABORTED TRANSMISSIONS 
2372 050240 000000 .WORD O ; COUNT OF XMIT CULLISON CHECK FAILURES 
2373 050242 CNTEND: 
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2374 ; 
p+ th 3 DEQNA ORIVER AND ASSOCIATED SUBROUTINES DATA 
‘ 
asl ta 050242 000000 CITTST: .WORD 0O 3 HOLDS STARTING ADDRESS OF CITIZENSHIP TEST AFTER LOADING F 
2378 050244 000000 CITSUM: .WORD 0O ; HOLOS ADDRESS OF THE ROM CHECKSUM AFTER LOADING 
2379 050246 000000 CSRBUF: .WORD O ; BUFFERS THE CSR, BIS AND BIC HAPPEN TO THIS 
2380 ; LOCATION WHICH IS THEN MOVED TO THE CSR. 
2381 ; PREVENTS LOSING BITS THAT ARE “WRITE A 1 TO 
2382 ; CLEAR” 
2383 050250 000000 FLAG1:: .WORD .¢) ; FLAG TO INDICATE IF CITIZ. TEST HAS RUN. 
050252 000000 FATFLG:: .WORD 8) ; FATAL ERROR FLAG 
2385 050254 000000 PCEFLG::.WORD O ; PORT COMMAND ERROR FLAG 
2386 050256 000000 NIRCNT::.WORD O ; QNA RECEIVE MESSAGE COUNTER 
2387 000000 XFLAG:: .WORD 0O ; FRAME TRANSMITTED FLAG 
2388 050262 000000 DNIFLG::.WORD O ; DONE INTERRUPT FLAG 
2389 050264 000000 ::.WORD O ; RECEIVE BUFFERS LOST COUNTER 
2390 000000 BCOUNT::.WORD OO ; UNEXPLAINED INTERRUPTS COUNTER 
2391 050270 000000 ERRFLG::.WORD OO ; ERROR FLAG 
2392 050272 000000 TIMOUT::.WORD O ; TIME OUT COUNTER 
2393 050274 000000 RETRYS::.WORD O ; COUNTER FOR FRAMES FAILING DUE TO RTRY ERROR 
2394 050276 000000 RCVERR::.WORD O ; COUNTS NO. OF BUFFERS RECEIVED WITH ERRORS 
2395 000000 RCVBUF::.WORD O ; COUNTS NO. OF GOOD BUFFERS RECEIVED 
2396 050302 010000 ROMSIZ: : -WORD 4096 ; SIZE OF BOOT/DIAGNOSTIC ROM IN BYTES 
2397 050304 000000 COUNT:: .WORD 0O ; USED IN BLOBUF SUBROUTINE AS COUNTER 
2398 306 000220 PROTOO: : .WORD 000220 ; PROTOCOL TYPE FOR LOOPBACK MESSAGES 
2399 050310 001140 T02::.WORD 001140 : PROTOCOL TYPE FOR REMOTE CONSOLE 
2400 050312 000000 SLFTST: .WORD 0O ; EXECUTE SELF TEST FLAG 
2401 314 000000 TEMP:: .WORD 0O ; USED IN XMIT AS TEMPORARY STORAGE 
2402 050316 000000 TEMP1:: .WORD O ; USED FOR TEMPORARY STORAGE 
2403 050320 000000 TEMP2:: .WORD O ; USED FOR TEMPORARY STORAGE 
2404 2 000000 TEMP3:: .WORD O ; USED FOR TEMPORARY STORAGE 
2405 050324 000000 XFER:: .WORD O ; STORES ‘BYTES TRANSF D’ 
2406 326 000000 CPYCNT::.WORD 0 ; ‘NO. OF COPIES’ COUNTER FOR LOOPING 
2407 050330 000000 PCCALL: : .WORD 0 ; STORES PC OF CALLING ROUTINE FOR ERROR REPORTS 
2408 050332 001100 BUFLEN: : .WORD XPKLEN ; STORES TRANSMIT BUFFER LENGTH 
2409 050334 000000 UF::.WORD O ; STORES LOCATION OF DATA BUFFER TO BE COMPARED 
2410 050336 000000 LAPCNT: .WORD 0 ; COUNTS HOW MANY LAPS “CURRENT RECEIVE 
2411 ; DESCRIPTOR” POINTER IS AHEAD OF THE 
ott ; “NEXT RECEIVE DESCRIPTOR” POINTER 
a 
pate ; REQUEST ID MESSAGE FORMAT 
: 
2416 050340 REQID: : 
2417 050340 000003 ‘ 3 ; BYTE COUNT (=3 FOR REQUEST ID) 
2418 050342 000005 . WORD IDF UNC ; FUNCTION CODE FOR REQUEST ID 
pod a 050344 051115 . WORD "MR ; RECEIPT NUMBER 
3 
2421 ; LOOP DIRECT MESSAGE 
2422 ; 
2423 EVEN 
2424 050346 LOPDIR: : 
2425 050346 000000 . WORD 0 ; SKIP COUNT 
2426 050350 000002 . WORD FORWRD ; FUNCTION = FORWARD DATA 
2427 050352 000000 000000 000000 . WORD 0,0,0 ; LOC NODE ADDRESS 
2428 050360 000001 . WORD 1 ; FUNCTION = REPLY 
2429 050362 000000 000000 000000 . WORD 0,0,0 ; LOCAL NODE ADDRESS 


GLOBAL DATA SE 


050506 
050510 
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I 
TION 


; TRANSMIT ASSIST MESSAGE 
3 
TASIST:: 


° 

; RECEIVE ASSIST MESSAGE 
; 

RASIST:: 


SKIP COUNT 

FUNCTION = FORWARD DATA 

TRANSMIT ASSIST ADDRESS 

FUNCTION = FORWARD DATA 
ADDRESS 


LOCAL NODE 
FUNCTION = REPLY 
LOCAL NODE ADDRESS 


SKIP COUNT 

FUNCTION = FORWARD DATA 
TRANSMIT ASSIST ADDRESS 
FUNCTION = FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION = REPLY 

LOCAL NODE ADDRESS 


SKIP COUNT 


FUNCTION = REPLY 
LOCAL NODE ADDRESS 


SEQ 48 
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EUNHAND LING ACTION TREE 
.SBTTL COMMAND LINE ACTION TREE 
S46? ;SAMPLE CLI TREE'NODE CALWAYS AT LEAST 1 WORD) 
2468 , ee eet) Ree 
$470 ; ! ACTION ! CHAR CODE ! 
S472 : MESS DISPLACEMENT ONLY IF “MISS” ARGUMENT DEFINED 
Saya ; | NEXT MODE DISPLMNT ! ONLY IF “ASCII” ARGUMENT DEFINED 
5a7e | ASCIZ HATCH STRING ONLY IF “ASCII” ARGUMENT DEFINED 
5477 ; ( EVEN) 
2478 ; PORES ASERHSR SS ONSwes see 
5480 . FIRST KEYWORD 
2482 os0sie ntieas CLISPA,O,N10$ ;SKIP ANY LEADING SPACES 
3484 050522 N10$: CLI <'?>,HELP,N12$ ;IS THE FIRST NON-SP CHAR. A “? 
548s r ' gy CLIEXI,O ; IF YES OO “HLP” AND EXIT 
oes. 50580 N12s: CLI  CLISTR,HELP.N14$,<* HELP’ > ‘ELSE IS FIRST WORD A “HELP 
5487 950544 as CLIEXI, i TE YES DO “HLP* AND EXIT | 
5488 050546 Ni4s: CLI CLISTR.NOTNUF ,N16$,<‘ NODE’ > iELSE IS FIRST WORD A “NODE 
»0,N80$ ; 
$490 o505ee Ni6s: CLI —-CLESTR,GUILD.N18$,<"BUILD’> | ;ELSE IS FIRST WORD A “BUILD 
5491 ee CLIEXI,O ; IF YES 00 “BUILD” AND EXIT 
Sane osoeos N18$: CLI  —_ CLISTR, NOTNUF ,N20$,<" RUN’ > {ELSE IS FIRST WORD A “RUN” 
5495 0506 CLIBR,O,.N180$ ; IF YES. BR N180$ 
5494 Os0ece N20$: CLI <'S>,NOTNUF ,N25$ ;ELSE IS FIRST CHAR. A “S” 
5495 050606 CLISTR.O.N22$,<' HOW’ > ; IF YES IS REST OF WORD “HOW” 
2496 050640 CLI CLIBR,O,N1O00$ | oy} ge YES OR Mo ; as 
ose: Saeeee — 2 CLISTR. SUPRY W238 nicieg4 ; IF YES, DO “SUMM" AND EXIT 
pate. N23$: CLI  CLISTR.CSAVE,N24$,<' AVE" > ; ELSE IS REST OF WORD * 
$500 0 a CLIEXI,O ; | IF YES, DO “SAVE” AND EXIT 
5301 050700 N24$: CLI CLIERR,O : ELSE “ILL COMMAND” 
i 
e502 050702 NOSS: ot CLISTRNOTNUF .N26$,<* CLEAR’ > ;ELSE IS FIRST WORD A “CLEAR” 
ss08 oS07e0 " GLE —-CLTBR,0,N1208 :_ IF YES. BR N120$ . 
5305 050/24 N26$: CLI CLISTR,NOTNUF ,N26$,<'IDENTIFY'> ;ELSE IS FIRST WORD “IDENTIFY 
S308 050744 " CLE — CLT@R, 0, N1408 i IF YES. GET ADORS. BR N140$ 
3507 050750 N28$: CLI CLISTR.NOTNUF .N29$,<*MESSAGE'> :ELSE IS FIRST WORD “MESSAGE' 
2508 0, N160 Hy . . = 
0507 N29$ : ec] CLITA CUNSAV, N30$,<‘UNSAVE’>  ;ELSE IS FIRST WORD “UNSAVE 
5310 051010 * CLI = CLIBR,O. N2108 :_ TF YES. BR TO N210$ 
Sait Osio14 N30$: CLI CLISTR,EXIT,N31$,<° EXIT’ > ELSE IS FIRST WORD EXIT’ 
; ’ 
sais 981032 N31$: ect Cr ISTRNOTNUF .NS28,, <* FUNCTION! > ELSE IS FIRST WORD “FUNCTION: 
; . N200 . 
sats osieae ws28: GLI CT TSTR RSPOND .N33$,, <* RESPOND: > sELSE IS FIRST WORD “RESPOND: 
Ht yey " CLI — CLIEXI,0 MB Ae 
5317 051076 N33$: CLI CLIERR RR!O OTHERWISE “ILL CMD” 
2518 051100 CLI CLIEXI.O ; EXIT 
5320 ; SECOND KEYWORD CADR/TYPE) FOR NODE COMMAND 
5852 051102 NeO$: CLI CLISPA,O,N81$ ;SKIP ANY LEADING SPACES 
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051106 
OS1i12 
051116 
051122 


051124 


1 
S60 051370 


051372 
051376 


06 
2568 051412 


051414 


CLIBR,CSAVR4 ,NB2$ 
CLIBR,NODE ,N90$ 


CLIBIF ,O,N3S2$ 
CLIEXI,O 


5 
; SECOND KEYWORD FOR SHOW COMMAND 


CLISPA. O,N101$ 

CLIS TR. CNODE N102$,<’NODES’ > 
CLIBR,O,N110$ 
CLISTR,CSHMSG,N104$,<' MESSAGE’ > 
CLIBR,O,N110$ 
CLISTR,CCNTR,N106$,<' COUNTERS’ > 
CLIBR,O,N110$ 

CLIBR.O,N32$ 

CLIEXI,O 


; 
; SECOND KEYWORD FOR CLEAR COMMAND 


CLISPA,O,Ni21$ 
CLISTR,O,N130$,<' NODE’ > 
CLISPA,O.NI 1223 

<! Ady got poane 

<'A>,O,N1L 

CLISTR, SCNODAL »=N124$,<‘LL’> 


CL eN1L35$ 
CLISTR.CCLMSG,N132$ ,<' MESSAGE’ > 
CLIBR.O,N135$ 

CLISTR, écusum, N134$,<*' SUMMARY’ > 
CLIBR.O,N135$ 

CLIERR,O 

CLIEXT,O 


. 
; ADDRESS FOR IDENTIFY COMMAND 


CLISPA,O,N141$ 
CLIBR,CSAVR4 ,N142$ 


CLIEXI, IDENT 


: 
; REMAINING COMMAND LINE FOR MESSAGE COMMAND 


N81$: CLI 
N82$: CLI 
N90$: cLI 
N9S$: CLI 
: 
N100$: CLI 
N101$: CLI 
CLI 
N102$: CLI 
CLI 
N104$: CLI 
CLI 
N106$: CLI 
N110$: CLI 
; 
N120$: CLI 
N121$: CLI 
CLI 
Nil22$: CLI 
CLI 
CLI 
CLI 
N123$: CLI 
cLI 
CLI 
N124$: CLI 
N126$: CLI 
N130$: CLI 
CLI 
N1i32$: CLI 
cil 
N134$: CLI 
N135$: CLI 
a 
N140$: CLI 
N141$: CLI 
N142$: CLI 
oe 
N143$: CLI 
; 
N160$: CLI 
N161$: CLI 
CLI 
CLI 
CLI 
CLI 
N162$: CLI 
CLI 


CLISPA,O,N161$% 

<'/>,0.N178$ 

CLISTR,O,N170$,<' TYPE’ > 
<'=>,0, 2 
CLISTR,CALPHA,N162$,<‘ ALPHA’ > 
CLIBR,O,N168$ 
CLISTR,CONES,N163$,< ‘ONES’ > 
CLIBR,O,N168$ 


SEQ 50 


sSAVE STRING POINTER LOCATION 
sPARSE THROUGH ADDRESS ,CHECK 

;FOR TARGET OR ASSIST, DO NODE 
Pb ERROR BRANCH IF ERROR EXISTS 
a 


;SKIP LEADING SPACES 
- NEXT WORD “NODES” 

IF YES, SET FLAG, BR N110$ 
SELSE IS NEXT WORD “MESSAGE” 
; IF YES ,SET FLAG, BR N110$ 
;ELSE IS NEXT WORD “COUNTERS” 

; GO TO COUNTERS ROUTINE 
FEL SE “ILL COMMAND” 
sEXIT 


;SKIP LEADING SPACES 

;IS NEXT WORD “NODE” 

; IF YES SKIP SPACES 

; LOOK FOR = ggg ae ELSE “ILt COM” 
; IS NEXT CHAR. 

; IF YES, IS WORD ma" 

3 IF YES, SET FLAG, a N155$ 

; ELSE IS NEXT CHAR. AN 

3 IF a STORE NODE LOGICAL NAME 
3 CLR. NODE LOGICAL ROUTINE 
3 ss 

3 

. 


T 
ELSE IS NEXT WORD “MESSAGE” 
IF YES, SET FLAG, BR N155$ 
SELSE IS NEXT WORD “SUMMARY 
; IF YES, CLEAR TABLE AND ExIT 
a “ILL COMMAND”, 
. 


;SKIP LEADING SPACES 


;SAVE POINTER TO FIRST CHAR. OF ADDRESS 


;CHECK THAT ADDRESS HAS LEGAL CHAR.S 
;GET ADDRESS 
300 “IDENTIFY”, EXIT 


;SKIP LEADING SPACES 

;IF CHAR. “/", CONT. -s ELSE BR N178$ 
;IS NEXT WORD “TYPE 

; IF YES, FOLLOWED r =e"? 


3 I 

3 CONT INUVE wate. 
: 

: CONTINUE AT N168$ 
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a ae » ** SENOS" 
CLISTR,CLALT,N165$,<' 1ALT‘ > 
CLIBR,O,N168$ 

ag woe N166$,<‘OALT’ > 
CLIBR,O,N168$ 

CLISTR, écerrr. N167$,<’‘CCITT’ > 
CLIBR,O.N 168$ 

<' "> CSAVR4 ,N32$ 


CL N1 

CLISTR, 0, N175$, <' SIZE’ > 
<‘a>,O0, N32$ 

CLIDEC, Petree N32$ 
CLIBR,O .N160$ 

CLISTR, O.NS28..<’ COPIES: » 
<'s>, 

CLIDEC, CCPYS,.N32$ 
CLIBR, 0, N160$ 
CLIBR,O.N32$ 


; 
; SECOND KEYWORD FOR RUN COMMAND 


N163$: CLI 
CLI 
N164$: CLI 
c.I 
N165$: CLI 
CLI 
N166$: CLI 
CLI 
N167$: CLI 
CLI 
N168$: CLI 
N170$: CLI 
CLI 
CLI 
CLI 
N175$: CLI 
CLI 
CLI 
CLI 
N178$: CLI 
; 
N180$: CLI 
N181$: CLI 


N182$: CLI 
cir 
N183$: CLI 
CLI 


N184$: CLI cLISTR CPATRN, a earner» 
N185$: CLI IBR,CDEFLT.N 
Ni86$: CLI crieTa. OQ, 1 ey a 
CLI <' => 0. 
CLI CLIDEC .O,.N32$ 
r eters CLI CLIEXI,CRUN 
3 REMAINING COMMAND LINE FOR FUNCTION COMMAND 
N2008 : CLI CLISPA,O.N201$ 
N201$: CLI CLIOCT .CFUNCT ,N32% 
CLI CLIEXI.O 
; REMAINING COMMAND LINE FOR UNSAVE COMMAND 
; 
N210$: CLI CLISPA,O,N212$ 
N212$: CLI <'/>,0, N215$ 


CLI 
N215$: CLI 


Oe ee N181$ 


;SKI 
CLISTR,CL oa N162$,<‘LOOPPAIR’ > 


ese oN 

CLIsS R-CRNALL, N183$,<‘ ALL’ > 
ELIBR. 0.N185$ 

CLISTR, COIR, N184$,<'DIRECT’ > 
CLIBR,O.N185$ 


CLIEXI.CUNSVF 
CLIEXI.O 


IF “ZEROS”, 


SET FLAG 
N168 


SEQ 51 


68 
IF by SET FLAG 


WORD 
“TF YES, FOLL 
TOR 


A eee 
: 
ae 


ELSE “ILt COMMAND” 


P LEADING SPACES 
;I1S NEXT WORD “LOOPPAIR” 
F YES, SET oe FLAG 


OWED BY “="? 
E NUMBER IN MSSIZE 
MORE INFO 


YES, SET “DIRECT” FLAG 


;GET PASS COUNT 
;RUN TEST AND EXIT 


; SKIP SPACES 
; GET OCTAL NUMBER AND DO FUNCT 


; EXIT 


3; SKIP 
;PARSE T 


— 


‘fs 


ELSE IS NEXT WORD “PATTERN” 


HROUGH 
;SAVE POINTER TO FILE NAME 


NPUT 
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-NLIST 


N4 


SEQ Se 


are .SBTTL GLOBAL TEXT SECTION 


THE GLOBAL TEXT err INF CONTAINS FORMAT STATEMENTS, 


ORMATION THAT ARE USED IN 


MORE THAN ONE TEST 


:¢ 
; 
; MESSAGES, AND ASCII 
: 
; 
; 


ERRTBL 
LSERRTBL:: 
. WORD 0 
. WORD 0 
. WORD 0 
. WORD ] 
<12><15>/NIE>/ ;NIE PROMPT 


/SNSA7ILL CMD-BAD SYNTAX?/ 
/SNSAZ2INCOMPLETE COMMAND?/ 
/SNSA?7NUMBER TOO BIG?/ 
/SNSA2BAD RADIX?/ 
pot he Le ge WALL OUTLET —_— 60 HERTZ?\ 
Pe HAS RESPONDED. / 

SNSAPACKET "RECEIVED WITH QNA ERROR. / 
/aNSATRANSMISSION ABORTED -- EXCESSIVE COLLISIONS. / 

NODE ADDRESSES ADDED, ELAPSED TIME: sD2sA MINUTE./ 


T ST 
/SNSAFOR LOOP TESTING. ADDRESS WA 
/SNSAPLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 
/SNSATWELVE HEX-DIGITS REQUIRED FOR ADDRESS./ 
/SNSAA ZERO LENGTH STRING WAS ENTERED. / 
/BNESOBT / 
/%S148ANSD2/ 
/%S148T/ 
\SNSANODE PHYSICAL ADDRESS NODE LOGICAL NAME 
/SNSATHE TSA TABLE IS FILLED TO CAPACITY!/ 
pi sTSA TABLE IS CURRENTLY EMPTY!/ 
/ / 


/ SUMMARY / 
/SNSATHE MESSAGE PARAMETERS HAVE BEEN RESET T0:/ 


TYPECA/T)N\ 


/SNSAAN UNBOUNDE 

/@NSATHE ADDRESS HAS BEEN DELETED FROM THE NODE TABLE. / 
/SNSANODE NSD1SA HAS BEEN DELETED FROM THE NODE TABLE. / 
/SNSATHE STSA TABLE HAS BEEN CLEARED. / 

HE NODE TABLE HAS BEEN sT/ 


/RESTORED. / 

/SNSATHE CURRENT MESSAGE PARAMETERS ARE: / 

/@NSATHE COLLECTION OF ALL NODE ADDRESSES COULD TAKE AS oo AS 40 MINUTES, / 
/@NSAHOWEVER, IF NO NEW NODES ARE ADDED TO THE TABLE FOR A 10 MINUTE PERIOD / 
/ONGATHE COLLECTION WILL STOP. sN/ 

/@NSAYOU ENTERED STA NODE: ST/ 

/SNSATHE SPECIFIED ADDRESS IS: sT/ 

/SNBATYPE =STSA, SIZE =8D48A , COPIES =8D5/ 


/@NSA ETHERNET DEFAULT ADDRESS (HEX): #77 


BS 
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\SNSACOMMAND SUMMARY FOR THE NETWORK INTERCONNECT EXERCISER (NIE )\ 
\SNSACIT IS ONLY NECESSARY TO TYPE THE ye - BRACKETS)\ 
- TYPES THIS HELP TEXT 
- RETURN TO THE SUPERVI iSoR. \ 
- - ORINTS INFORMATION IN CURRENT NODE TABLE.\ 
PRINTS THE SELECTED MESSAGE TYPE, SIZE AND COPIES.\ 
OUNTERS - - PRINTS THE <~ LEVE!. COUNTERS a THE HOST NODE .\ 


A)LL/PASS=NN - RUNS THE NODE-TO-NOCE TEST.\ 

DJIRECT/PASS*NN - RUNS THE LOOP DIRECT TEST.\ 

tikes gage = - RUNS THE MESSAGE PATTERN TeST.\ 
RIJESPONDER - RUNS LOOP-SERVER/CONSOLE - ID RESPONDER TEST 

\SN2WALMJESSAGE /(T ]YPE=A/(S)IZE*N/(C]OPIES*M - ALLOWS THE OPERATOR TO. 

\SNSAMODIFY THE DEFAULT MESSAGE TYPE, SIZE AND COPY PARAMETERS. \ 

\sNOSA(NJODE oo to - ENTERS A PHYSICAL ADORESS INTO THE NODE\ 

\SNSATABLE. THE TYPE gdh BE EITHER (TJARGET (DEFAULT) OR [A]JSSIST.\ 

\SN2SA[SU]MMARY - PRINTS A SUMMARY OF THE TEST RESULTS.\ 

ee tein” Re A TABLE OF REMOTE NODE PHYSICAL ADDRESSES BY\ 

\@SNSALISTENING TO ID MESSAGES ON THE NI.\ 

\SNOWALCILEAR ([NJODE/ADR - REMOVES THE NODE = BY EITHER ADR\ 

\sstNBSAOR ye TABLE. 


LOGICAL NAME FROM THE NODE 
AR (NJODE/CAL }t - CLEARS THE NODE TABLE 
ALL MESSAGE PARAMETERS TO gh ¥€ \ 


NODE TABLE.\ 
VE - ACES CURRENT NODE Mae ry THE SAVED ONE .\ 
\SNSSESANOTES : 1) AUR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI.\ 
S8sA 2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65534, A DEFAULT. 
VALVE OF 1 IS ASSUMED.\ 
SPECIFYING -1 CAUSES ine TEST TO BE RUN INDEFINATELY.\ 


TEST MESSAGES AND ARGUMENTS 
/@NGA PASS ABORTED! / 


4: LASCIZ 





/@T¢A ERROR/ 

/QNGTSA NODE: STSTSA NODE: ST/ 

/@A - RESPONSE OK/ 

/@NGA - RECEIVE ASSIST - RESPONSE OK/ 
/@NGA - TRANSMIT ASSIST - RESPONSE OK/ 
/ONGA - FULL ASSIST - RESPONSE OK/ 
/@NBAERROR OCCURED WITH sT@A MESSAGE TYPE/ 
/@A DATA PATTERN: sT/ 








/RECEIVE ASSIST/Z 
/MESSAGE PATTERN/ 

/NO RESPONSE / 
EXCESSIVE COLLISION/ 
/LENGTH/ 


te 
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061515 


COMPAR: 


= /DATA COMPARTSON/ 


sMESSAGE TYPES 


;COMMAND TYPES 


-ASCIZ / / 
ASCIZ / 
.ASCIZ /MESSAGE/ 
.ASCIZ 
.ASCIZ /CLEAR/ 
-ASCIZ /REQUEST ID/ 
: meth /NODES/ ;ARGUMENT TYPES 


sc /MESSAGES/ 
SCIZ /COUNTERS/ 


: |ASCIZ /LOOPPAIR/ 
: .ASCIZ /ALL/ 


-ASCIZ / ASSIST/ 


: .ASCIZ /TARGET/ 


"ASCIZ /SNSABAD CLOCK - PROGRAM WILL HANG ON “TIMEQUT"!!/ 


QNA COUNTER INFORMATION MESSAGES 


/@NSSSSACONTENTS OF NODE STSA INTERNAL COUNTERS: / 
/BN26ASECONDS SINCE LAST ZEROED: #S15825/ 

-ASC /SNGAPACKETS RECEIVED: 851987 / 

-ASCIZ /SNSAMULTICAST PACKETS RECEIVED: sS9sT/ 

ASC /@NSAPACKETS REC'D WITH ERROR - BITMAP; 858884 / 

sc /GNBAPACKETS RECEIVED WITH ERROR: 8S15825/ 

SCIZ /SNSADATA BYTES RECEIVED: 8S168T/ 


: _ASCIZ /@NSAMULTICAST DATA BYTES RECEIVED: sS6sT/ 





-ASCIZ /SNSARECEIVED PACKETS LOST- INTERNAL :8S10825/ 
Porta ont bay PACKETS LOST -LOCAL :#Si2825/ 
TS TRANSMITTED: #S168T / 
TS TRANSM 


/GNBAPACKETS TRANSMITTED 2 TRYS:8S9sT/ 
sc /GNBAPACKETS DEFFERED: 8S19sT / 

SCIZ /SNSADATA BYTES TRANSMITTED: 8S1358T/ 
/GNSAMULTICAST BYTES TRANSMITTED: sS6sT/ 





7; .ASCIZ /SNSATRANSMIT PACKETS ABORTED -BITMAP : 8S8886/ 


CNTR19: 


: .ASCIZ /S@NSATRANSMIT PACKETS ABORTED: 8S168725/ 


.ASCIZ /SNSAXMIT COLLISION CHECK FAILURE :8S512825/ 


ERROR MESSAGES FOR DEQNA DRIVER 


SEQ 54 


EYUBAM rPRPNGE RHE LBAERCISER OTAG 


Ss ; 
SIMSG7: 


-ASCIZ 


D5 
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/DEQNA PORT COMMAND ERROR/ ; SHOULD NEVER GET THIS ERROR 
/DEQNA NON EXISTENT MEMORY ERROR/ 

/UNEXPLAINED DEQNA INTERRUPT/ 

/UNKNOWN GNA ERROR/ 

/TIMEQUT ! - -DEQNA 


HARDWARE ee TRANSMIT PACKET/ 

/DEQNA STILL OWNS TRANSMIT DESCRIPTOR/ 

/RECEIVE RING BOOKKEEPING ERROR/ 

/MESSAGE SIZE TOO BIG FOR is PACKET LENGTH/ 
RESPONSE FROM 


/ NS ANO NODE . / 
/TRANSMIT ERROR, ALL PACKETS NOT TRANSMITTED/ 
ERROR WHILE WRITING MULTICAST ADDRESS LIST pare DEQNA/ 
\SNSAILLEGAL TARGET/ASSIST PAIR IN NODE TABLE 
oat a a WAITING FOR LOOPBACK REPLY/ 

SAFAILING NODE ADDRESS: sTsN/ 
WMADATA PATTERN: sTsN/ 
/@AFAILING TARGET NODE ADDRESS: sTsN/ 
/@AFAILING ASSIST NODE ADDRESS: sTsN/ 
<15><12>/TIMEOUT WAITING FOR REPLY - LOOP MESSAGE TYPE - RECEIVE ASSIST/ 
<15><12>/TIMEOUT WAITING FOR REPLY - LOOP MESSAGE TYPE - TRANSMIT ASSIST/ 
<15><12>/TIMEOUT WAITING FOR REPLY - LOOP MESSAGE TYPE - FULL ASSIST/ 
\NON-EXISTENT MEMORY ERROR DURING ADDRESS SETUP\ 
\SETUP ADDRESS MISMATCH ERROR - DEQNA INTERNAL LOOPBACK FAILED\ 
\ADDRESS SETUP-PACKET TRANSMIT ERRORS 
\ADDRESS SETUP - ones” TRANSMITTED, BUT NOT RECEIVED. 
\PACKET RECEIVED WAS NOT AN ADDRESS SETUP-PACKET\ 
\ADDRESS Se Tur PACKET TRANSMIT AND RECEIVE BYTE COUNT MISMATCH 
\CASE OFFSET RANGE UNDERFLOW\N 
\CASE OFFSET RANGE OVERFLOWN 
\LOOP -SERVER FUNCTION CODE IS NEITHER FORWARD OR REPLYS 
\RECEIVE DATA TOO LARGE FOR RECEIVE BUFFER\ 

ADDRESS WAS or ell RUNT PACKET WAS RECEIVED. \ 


\RECEIVER FRAMING ERROR OCURRED\ 

\RECEIVED PACKET WITH ERRORS, THROWING IT AWAY \ 
\UNEXPECTED LOOP-SERVER REPLY PACKET RECEIVED\ 

\RECEIVED PACKET OF LESS THAN 10 BYTES\ 

\UNKNOWN RECEIVE ERROR OCCURRED\ 

\NERROR OCCURRED WHILE TRANSMITTING CONSOLE IO\ 

\NEXT RCV DESCRIPTOR POINTER PASSED CURRENT RCV POINTER\ 
\OPERATOR ERROR - CANNOT USE THE DEVICE'S OWN NI ADDRESS\ 
\TIMEOUT WAITING FOR SOOT/DIAGNOSTIC CODE TO LOAD FROM QNA\ 
\LOADED BOOT/DIAGNOSTIC ROM CODE AND ROM CHEKCSUM MISMATCH 
\CITIZENSHIP TEST FAILED\ 

\QNA HARDWARE RECEIVED A PACKET NOT ADDRESSED TO IT\ 

\AN ASSIST NODE HAS BEEN CHANGED TO A TARGET NODE 


/@NSA NODE DEFAULT ADDRESS: sT/ 
/ONSSESARECEIPT NUMBER: 806/ 
/@NSA MAINTENANCE VERSION: #Z2/ 
/ONBS19SAECO: BZ2/ 

/@NGSL4SAUSER ECO: #Z2/ 
/@NSS1L4SAFUNCTION: #02/ 
/@NSSLESADEVICE: #02/ 


SEQ SS 


eo 
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2855 ; 
2854 .EVEN 
one 067542 i .ASCIZ /sNSAPC OF CALLING ROUTINE = #06/ 


VEN : 
2857 067602 CMPER1: .ASCIZ /sNSABYTE NUMBER: SD4s8A(D) EXPECTED=8068A(0) RECEIVED -s068A(0)/ 


2858 067677 -ASCIZ /sNSATOTAL MISMATCHES IN MESSAGE = #8D4/ 
2859 067745 LGERMS: .ASCIZ /sSNSALENGTH ERROR -- BYTES EXPECTED: s068A BYTES RECEIVED: #06/ 
2860 070043 .ASCIZ /SN2SSE8SANODE: ST/ 


-ASCIZ /sNSS68Z58S128758S10825/ 
-ASCIZ /sNSACOMPARE ERRORS BYTES COMPARED BYTES XFER/ 
SCIZ /sNSS68Z5SSE8T/ 


SUPMS1 : 
2861 070064 SUMMS2: .ASCIZ /sNSARX NOT COMPLETE RX COMPLETE LENGTH ERRORS/ 
: 
: IR 
SUMMS6: .ASCIZ /#SSsT/ 


2868 -LIST BIN 


2890 


2891 
2892 


2893 
2894 


2895 


012737 
013746 


013701 
30 


002324 
064451 
000002 


ra 
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.SBTTL GLOBAL ERROR REPORT SECTION 


3¢ 
: THE GLOBAL go SECTION CONTAINS MESSAGE PRINTING AREAS 


; USED 


BGNMSG 


ENDMSG 


ENDMSG 


BGNMSG 


ERR1 


MOV 
PRINTX 


DOCLN 


PRINTX 


ERRS 


TO OUTPUT 


oCEXIT,CFLAG 
oPCMSG ,PCCALL 


Ri. -(SP) 
es 


OMSGTAB,R1 
SEMSGSS , @STRBUF 


GEMSG56 ,(R1) 


CSP )+,R1 


PRINTX #EMSG37,0STRBUF 


ERR1:: 


L10002: 


ERR2:: 


L10003: 


ERRS:: 


BY MORE TEST ADDITIONAL ERROR INFORMATION. PRINTB 
; (BASIC) AND PRINTX CEXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 


TRAP 


SEQ 57 


PCCALL, -(€SP) 
OPCMSG, -( SP) 
02, - (SP) 

SP ,RO 
C$PNTX 

$6 ,SP 


C$OCLN 


C$MSG 


CR1), -CSP) 
®EMSG36, -C SP) 
ee. -(SP) 


SP ,RO 
CSPNTX 


Cs$MSG 


GS 
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GLOBAL ERROR REPORT SECTION 
070452 062706 000006 ADD 06 ,SP 
2896 070456 PRINTX @#EMSG38, @STRBU1 
070456 012746 002346 MOV @STRBU1, -( SP) 
070462 012746 064515 MOV @EMSG3S, -( SP) 
070466 012746 000002 MOV @2,-CSP) 
070472 010600 MOV ~RO 
070474 104415 TRAP CSPNTX 
70476 062706 000006 ADD . 
2897 070502 ENDMSG 
070502 L10004: 
anee 070502 104423 TRAP CsmMSG 
{ SSSKCSCSAASSCSASKASSSAKAS CSAS SASK SSASSASSASASSAASSSSSSCAAAAASS SASS Aca coco oo 
2990 : THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 
2901 3 AFTER AN ERROR CALL. THEY ARE INVOKED BY APPENDING THE NAME 
2902 ; OF THE AREA TO AN ERROR CALL: ERRXXX 1,ERRORMESSAGE , AREANAME . 
2903 ; THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 
2904 ; BGNMSG AREANAME 
2905 : {CODE } 
5907 — 
; 
2908 ; THE AREAS IN THIS SECTION ARE FOR MESSAGES USED IN MORE THAN ONE 
2909 3 TEST. USE THE PRINTB CPRINT BASIC) AND PRINTX CPRINT EXTENDED) 
2910 : MACROS. 
: 


6 Sh GS 5 WS 95 06 G6 Gu 5 0h oh a 05 5 0 a ak uk uk nb a5 ak ah 5 oo uo ok ak uk sah hs ok oo oh ah ah 9h hh 0 0 a a a 


H5 
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.SBTTL GLOBAL SUBROUTINES SECTION 


;ee 

; THE GLOBAL SUBROUTINES SECTION — THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE T 

3 -~_- 


z¢¢ 
; FUNCTIONAL a 


SUBROUTINE T 


~eaauaed 
COMPLETE THE “SUBROUTINE TO....” STATEMENT WITH A FUNCTIONAL 
DESCRIPTION OF THIS SUBROUTINE. 


: 
INPUTS: 


LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 


: 
IMPLICIT INPUTS: 


LIST THE INPUT DATA THAT ARE IMPLICITLY USED BY THIS SUBROUTINE; 
FOR EXAMPLE, DATA READ FROM COMMON AREAS. 


; OUTPUTS: 


LIST THE OUTPUT DATA THAT ARE EXPLICITLY GIVEN BY THIS SUBROUTINE 


; 
IMPLICIT OUTPUTS: 


LIST THE OUTPUT DATA THAT ARE IMPLICITLY GIVEN BY THIS SUBROUTINE; 
FOR EXAMPLE, DATA STORED IN COMMON AREAS. 


; SUBORDINATE ROUTINES USED: 


LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. - 
SESECASSSACKAS SSSR EES SS 


FUNCTIONAL SIDE EFFECTS: 


aa 
DESCRIBE ANY EFFECTS THIS SUBROUTINE MAY HAVE UPON OTHER 
ES THE DIAGNOSTIC PROGRAM. AN EXAMPLE OF THIS IS 


MODULES OF 
THE SUBROUTINE INHIBITS ALL INTERRUPTS WITH PRIORITY 7. 
Seaeane 


CALLING SEQUENCE: 


: KLESSSSASASSASSASSSASASASS AAAS ASASSAKAAASSSSAASSSASSSASASASSESSSSSESSSH SSeS HSS SSE Se 


[5 
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GLOBAL SUBROUTINES SECTION 


GIVE THE EXACT CALLING SEQUENCE USED TO ACCESS pes SUBROUTINE. 
FOR EXAMPLE: MOV COUNT,R1i sMOVE INPUT TO R1 
JSR PC ,ROUT INE 3GO TO ROUTINE 
BCS ERROR s;CARRY SET IF ROUTINE HAD ERROR 
ECASELCKGMASSCKSTLSGKG AAAS SERA SGA ASN SSHRKSSHASSAAAASHSGASESHEG TAGE AKESEK ESA OO 


SCSCSSSLKSASSSSAGSASSAASSA CASTS SSSSSSPSSAASSSSAASA SSAA SASS SSSA Acca caca oa 
INSERT THE CODE FOR THIS SUBROUTINE. THE NAME OF THE SUBROUTINE SHOULD 
BE DEFINED WITH A DOUBLE-COLON (::); THIS WILL MAKE THE SUBROUTINE GLOBAL. 
KASAKSASKSSASSAAASAASAAAASAA SSAA AAAS AAAS c Sta 


BECKS SHKAGASACGSHCSEKSKS ES TAHSSHS ASSETS A GASSER SACAK SG SKASKKSESSCEACAKAEGE SEGA SES 
BEGIN EACH SUBROUTINE AT THE TOP OF A NEW PAGE. 
LKSCCKAASSSASASSASSSSSSSSSSAAAASSSSSSSASS SSA ACSSSSSSASSSSSCASSSASSS SAAS S AAA 


EURSET® GLOck SeruP SuBROUTE 


012122 
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. SBTTL 


J5 


SEQ 61 


CLKSET CLOCK SETUP SUBROUTINE 


i--? 
; FUNCTIONAL DESCRIPTION: 


is 
ge-8 


CLKSET: 


INPUTS - 


OUTPUTS - 


CALLING PROCEDURE : 
JSR 


THIS SUBROUTINE SETS UP THE CLOCK INFORMATION TABLE FOLLOWING 
A “CLOCK” CALL EXECUTED IN THE INITIALIZATION CODE. B8UT SINCE 
THE “CLOCK” CALL SAYS NOTHING ABOUT AN LSI-11'S CLOCK, THE 
ROUTINE IS ONLY USED IF A LINE OR P-CLOCK IS FOUND. 


Ri - POINTS TO SUPERVISOR SPACE WHERE CLOCK INFO WAS RETURNED 
R2 - POINTS TO “CLK” TABLE WHERE CLOCK INFO WILL BE KEPT 


“CLKCSR” GETS LOADED WITH THE CLOCK’'D CSR ADDRESS 
“CLKBR” GETS LOADED WITH THE CLOCK’S INTERRUPT LEVEL 
“CLKVEC” GETS LOADED WITH THE CLOCK‘S INTERRUPT VECTOR 
"CLKHZ" GETS LOADED WITH THE LINE FREQ. CIN HERTZ) 


PC ,CLKSET ; CALL CLOCK SETUP WITH R1 AND Re SETUP 


LOAD CLOCK’'S CSR ADDR. INTO “CLKCSR” 


CR1)+,CR2)+ 
—_ LOAD CLOCK’S INTR. LEVEL INTO “CLKBR” 


2) ADJUST THE INTR. LEVEL FOR LOADING 
(R2) INTO THE PSW WITH A “SETVEC” CALL 
(R2) 

(R2) 

C(R2)>+ 

CR1i)+,CR2)+ ; LOAD CLOCK’S INTR. VEC INTO “CLKVEC” 
ee ; LOAD CLOCK’S FREQ. INTO “CLKHZ” 


CVNIAAO DEQNA 


CLKINT 


CLOCK INTERRUPT SE 


070530 
070530 


070530 


KS 
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SERVICE ROUTINE 


113202 
003754 


003744 
050146 
003752 
000074 


003750 
003752 


003756 
003756 
003760 
003760 
003762 
003744 


003754 


003752 


003754 


10$: 


20%: 


30$: 


. SBTTL 


SIDE EFFECTS - 
CALLING PROCEDURE - THIS ROUTINE IS CALLED WHEN THE CLODK INTERRUPTS THRU 


SEQ 62 


CLKINT CLOCK INTERRUPT SERVICE ROUTINE 


“FUNCTIONAL DESCRIPTION: 


THIS IS THE CLOCK INTERRUPT oe ROUTINE WHICH TAKES CARE 


OF KEEPING THE "“TIME-SINC 
“EVENT” TIMERS. 
DEVICE REQUESTS. 


E-START” AND COUNTING 
THE TIMERS ARE "USED ION OF 
THE “TIME-SINCE-START” IS USED TO BE LOGGED 


DOWN ANY OF THE 
TO TIME COMPLETI 


WITH EACH ENTRY INTO THE EVENT LOG. 


CLKMZ - THE NO. 


IMPLICIT INPUTS - aa - THE CURRENT NO. 


OF TICKS LEFT TO BE COUNTED UNTIL 


SECOND HAS BEEN COUNTED OFF 


SYS. LINE FREQ. 
TIMMIN € TIMSEC - CURRENT VALUE OF “TIME-SINCE-START” IN 
MINUTES AND SECONDS 


TIMER 1,2 AND S 


IT wW 


OF TICKS IN A SECOND, DETERMINED BY THE 


- CURRENT VALUES OF “EVENT TIMERS” 


IMPLICIT OUTPUTS - NEW VALUE OF EVENT TIMER “1” € “2” DECREMENTED By 1 TICK 
IF AS NON-ZERO 


NEW VALUE OF EVENT TIMER “S” DECREMENTED BY 1 SECOND IF IT 


BGNSRV CLKINT 


@CLKCSR 


TIMTCK 


10$ 
CLKHZ, TIMTCK 
— 


TIMSE 
#60. , TIMSEC 
10$ 


TIMMIN 
TIMSEC 


TIMER1 
20$ 

TIMER1 
TIMER2 
30$ 

TIMER?] 
TIMERS 


40$ 
CLKHZ, TIMTCK 
40$ 


WAS NON-ZERO 


THE CLOCK IS DISABLED UPON ENTRY AND REENABLED WHEN LEAVING 


“CLKVEC”. THE 


SS OF THIS ROUTINE WAS LOADED 


INTO THE CLOCK’S INTERRUPT VECTOR WITH A “SETVEC” CALL 


CLKINT:: 


DISABLE THE CLOCK FROM INTERRUPTING 
DECREMENT THE NO. OF TICKS/SEC 
GO CHECK TIMERS 
RESET THE NO. OF TICKS/SEC. 
INCREMENT QNA‘S NUMBER OF SECS 
INC. NO OF SECS-SINCE-START 
SEE IF WE‘ VE COUNTED 4 SEC.S YET 
IF NOT, GO CHECK TIMERS 

ELSE, INC. MINUTES-SINCE-START 

AND RESTART SECOND COUNTER 


SEE IF TIMERL ig ANY THING 
IF=0, NO, CHECK NEXT TIMER 
ELSE DECREMENT THE TIMER VALUE (BY 1 TIcK) 


SEE IF TIMER2 TIMING ANYTHING 
IF=0, NO, CHECK NEXT TIMER 
ELSE DECREMENT TIMER VALUE (BY 1 TICK) 


SEE IF TIMERS TIMING ANYTHING 

IF=0, NOTHING BE TIMED, LEAVE 
SEE IF A SECOND HAS BEEN COUNTED OFF 
BR IF NO 


a. 
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EVNENT® RESGR TATERRGBT SeRVICE ROUTINE seigesiinas 
3097 070642 005337 003762 DEC TIMERS ; ELSE, DECREMENT TIMER VALUE (BY 1 SEC.) 
3098 070646 40S: 
3099 070646 013777 003746 113062 MOV CLKEN, @CLKCSR ; REENABLE THE CLOCK TO INTERRUPT 
3100 070654 ENDSRV | 
070654 L10005: 


070654 000002 RTI 


BREGIA® 


OSeave REGISTERS 1 


070716 


010346 
010246 
010146 
010437 
012401 


060701 


050350 


AG MACRO M 


THROUGH 4 AERoss§ SUBROUTINE CALLS 


MS 
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.SBTTL PREGI4 PRESERVE REGISTERS 1 THROUGH 4 ACROSS SUBROUTINE CALLS 


+ 
; INPUTS: THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 
: CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 
; 
;OUTPUTS: -REGISTERS 1 THROUGH 4 ARE PRESERVED ACROSS THE CALLED ROUTINE. 
: -A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN'T OVER-RUN 
; THE PARAMETER STACK. 
3 
;CALLING SEQUENCE: nee . BEST HANDLED BY THE “CALL” MACRO. THE ACTUAL 
$ : 
: JSR R4,PREG14 
: . WORD ( SUBROUT INE NAME ) - ANCHOR 
3 
; COMMENTS: THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE. 
3 THIS ROUTINE IS DRS COMPATIBLE. 


THE ROUTINE SPECIFIED IN THE CALL. 
;R4 IS ALREADY ON THE R6 STACK. 


; 
;SUBORDINATE ROUTINES CALLED: 
he 


PREGI4: 
MOV R2,-CSP) Hy 
MOV R1, -(SP) ; 
MOV R4, PCCALL 
MOV (R4)+,R1 GET THE RELATIVE ADDRESS OF THE CALLED 
: 
pon ADD PC,R1 ;MAKE IT AN ABSOLUTE ADDRESS. 
* MOV R4,-(SP) ;SAVE THE RETURN TO THE CALLING ROUTINE, 
cH RS. ;CHECK FOR STACK OVER-RUN. 
; 
ies HALT ;HANDLE STACK OVER-RUN CONDITION. 
: JSR PC,(R1) ;CALL THE SPECIFIED ROUTINE. 
MOV (SP )+,R4 ;RESTORE THE RETURN TO THE CALLING ROUTINE. 
MOV (SP)+.R1 sRESTORE THE REGISTERS. 
MOV (SP)+,R2 ; 
MOV (SP)+,R3 ; 
RTS R4 ;BACK TO THE CALLING ROUTINE. 


CVNIAAO DEQGNA 
WAIT 


012703 
012704 


005002 
010314 


012702 


010225 
000207 


NI EXERCISER DIAG 
WAIT FOR DEQNA INTERRUPT 


000012 
003756 


050270 
050262 
050262 


070656 


177777 


NS 
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WITH TIMEOUT 
.SBTTL WAIT | WAIT FOR DEQNA INTERRUPT WITH TIMEOUT 
3¢e 
; FUNCTIONAL DESCRIPTION: 
; THIS SUBROUTINE WAITS FOR INTERRUPTS FROM THE DEQNA 
; OR REPORTS A TIMEOUT. IF A QNA INTERRUPT HAS NOT 
; OCCURED WITHIN THE TIMEOUT PERIOD THE SUBROUTINE ERROR 
; IS CALLED TO HANDLE IT. 
; 
; SUCCESS OR FAILURE IS REPORTED VIA P1. 
; 
; INPUTS - 
3 NONE 
i 
; OUTPUTS - 
; Pl: SUCCESS/F AILURE O=SUCCESS/ -1=FAILURE 
; CALLING SEQUENCE: 
3 CALL WALT 
: PsPOP Pl 
gece 
WAIT:: 
MOV #10. ,.R3 ; MOVE NO. OF COUNTS TO R3 
MOV @TIMER1,R4 ; AND TIMER TO BE USED TO R4 
CLR R ;LOCAL STATUS PARAMETER 
aii MOV R3,(R4) ;SET NUMBER OF TICKS. (GLOBAL) 
; TST ERRFLG sCHECK IF ERROR OCCURED 
BNE 30$ ; BR IF YES 
TST ONIFLG ;CHECK FOR INTERRUPT 
BEQ 20$ ; BR IF INTERRUPT RECEIVED 
CLR ONIFLG 
BR $ 
20$: 
TST CR4) sHAS TIMER EXPIRED? 
BNE 10$ ; BR IF NO TO WAIT FOR INTERRUPT 
-~ BR 40$ ;BR TO 40$ 
; CALL ERROR ;CALL ERROR ROUTINE 
JSR R4,PREG14 
ca "WORD ERROR-ANCHOR 
nny MOV #-1,R2 ; INDICATE FAILURE 
; RETURN R2 


;RETURN WITH SUCCESS/FAILURE INDICATION 
He R2.CRS)+ 


b6 
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ERROR - HANDLE QNA INTERRUPT ERRORS 
tH .SBTTL ERROR - HANDLE QNA INTERRUPT ERRORS 
3189 t--* 
3190 3s FUNCTIONAL DESCRIPTION: 
5191 : THIS SUBROUTINE CHECKS THE ERROR FLAGS SET BY 
3192 3 QNAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
aos ; OUT THE APPRORIATE ERROR MESSSAGES. 
: 
3195 ; INPUTS - 
atet : tT el ERROR FLAGS SHOULD BE SET BY UNAISR ROUTINES. 
3 - 
Ht es4 : IMPLICIT: ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE. 
: 
3200 ; CALLING SEQUENCE: 
3201 ; CALL ERROR 
3202 : 
3203 — 
3204 071002 ERROR: : 
3205 071002 005337 050270 ERRFLG ;sDECREMENT ERROR COUNTER TO SHOW 
3206 ;THAT IT HAS BEEN HANDLED 
3207 071006 005737 050254 TST PCEFLG 3SEE IF PORT 
3208 071012 001015 BNE 108% ; IF YES, BR 
3209 071014 7 050252 TST FATFLG ;SEE IF QNA FATAL ERROR 
3210 071020 001017 BNE 208 ; IF YES, BRANCH 
3211 071022 005737 050266 TST BCOUNT ;SEE IF UNEXPLAINED INTERRUPT 
3212 071026 001025 BNE 30% ; IF YES, BRANCH 
3213 071030 ERRDF 4,EMSGO4,ERR1 ;ELSE UNKNOWN ERROR 
071030 104455 TRAP CSERDF 
071032 -WORDB 4 
071034 0635635 .WORD EMSGO4 
071036 070306 . WORD ERR1 
3214 071040 000424 BR 40% ; EXIT 
3215 071042 10$: ERROF 1,.EMSGO1,ERR1 sPORT COMMAND ERROR 
071042 104455 TRAP CSEROF 
071044 000001 -WORD 1 
071046 0634356 . WORD EMSGO1L 
071050 070306 . WORD ERR1L 
3216 071052 005337 050254 DEC PCEFLG ; INDICATE THAT IT WAS HANDLED 
3217 071056 000415 BR 40$ ; EXIT 
3218 071060 203: ERRDF 2,EMSGO2,ERR1 ;QNA FATAL ERROR 
71060 104455 TRAP CSEROF 
071062 .WORD 2 
071064 063467 .WORD EMSGO2 
71066 070306 ‘ ERR 
3219 071070 005337 050252 DEC FATFLG ; KEEP UP ON BOOK KEEPING 
3220 071074 000406 BR 403 3; EXIT 
3221 071076 308: ERROF 3, EMSGO5,ERR1 sUNEXPLAINED INTERRUPT 
071076 104455 TRAP CsERDF 
071100 .wORD 3 
071102 063527 . WORD EMSGOS 
071104 070306 .WORD ERR1 
3222 071106 005337 050266 DEC BCOUNT ; BOOK KEEPING 
$223 071112 40$: RE TURN ;RE TURN 
071112 000207 | RTS PC 


GVNIA0 DFONA.NE EXERCISER DIAG MACRO M1200 22-MAR-84 13:12 PAGE 19 


071216 


012737 


005737 
001375 


012762 
005062 


005737 
001162 
012737 
012701 


012704 
012705 


012724 
012724 


050250 


000001 
000002 


021200 
004100 


177777 
100000 


000016 


C6 


SEQ 67 


. SBTTL 
3° 
SUBROUTINE TO 


QNAINI INITIALIZE THE QNA 


TS QNA IN THE READY STA 

INITIALIZES ALL QNA GLOBAL DATA LOCATIONS 
TO DEFAULT VALUES 

ROUTINE STEPS: 


SET RESET BIT RESET THE QNA 
SET TIMER TO ALLOW 100 USECONDS FOR INIT 
INVALIDATE THE TRANSMIT LIST(S) 
VALIDATE THE RECEIVE LIST(S) 
RECE ba BUFFER COUNT 


ADDRESS 
READ PHYSICAL ADDRESS ROM AND STORE IT 
WRITE THE RECEIVE RING LOWER AND UPPER ADDRESS(S) 
i INTERRUPTS AND DATA RECEPTION 
x 


2. 
- 
r 
m 
o 
@ 
~< 


CALL QNAINI 

NONE 

NONE 

ALL GLOBAL LOCATIONS ARE ZEROED 


INPUTS: 
; OUTPUTS: 


$ 
; SIDEEFFECTS: 
g 


i 
; RESET AND STOP QNA HARDWARE 


es oe @ Ge Ge os Gf Gs G6 GF Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge GF 
- 
_ 
. = 2 
~ 
am 
# 
ee 
~ 
@ 
~ 
—~ 


3 
QNAINI: : 
v QNAADO , R2 ; GET THE DEVICE ADORESS 
BIS @MRE SET, CSRBUF ; SET SOFTWARE INIT BIT 
MOV CSRBUF ,CSR(R2) ; WRITE IT TO THE QNA 
_ MOV 01, TIMERL ; TIMER FOR INITITIALIZE 
b TST TIMER ; INIT DONE? 
BNE 10$ ; BRANCH IF NOT 
MOV OMRESET,.CSR(R2) ; CLEAR THE RESET BIT 
CLR CSR(R2) ; WRITE IT TO THE QNA 
;LOAD AND RUN CITIZENSHIP TEST 
TST FLAG1 ; MAVE WE GONE THRU THE CITIZENSHIP 
BNE QNAIN1 ; TEST BEFORE? IF YES, BRANCH 
MOV 01,FLAGI 
MOV 02,R1 ;BUILD TWO RECEIVE DESCRIPTORS OF 
; ek BYTES EACH 
MOV ORDESC ,R4 ;GET POINTER TO DESCRIPTOR 
i MOV ORBUFB RS ;GET POINTER TO 1ST BUFFER 
$;: 
MOV #-1,CR4)-> :F LAGWORD 
MOV OV,(R4)- ;DESCRIPTOR BITS 


D6 
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3383 


3285 
86 


071222 


071522 


071352 
071360 


071362 


320 071370 


071372 
071376 


071416 
071422 


071426 
071426 


071432 
071434 


010324 
062705 
012724 


012724 
012724 


077401 
042762 
005004 


077401 


013701 


010246 
010546 


177777 
177777 


000010 


000002 
000016 


021200 
000000 
000010 
000012 


021214 
000000 


177777 
072122 


047772 


000016 


000016 


177777 


177777 


177777 


177777 


4S$: 


473: 


70%: 


R3,CR4)+ 
02048. ,R3 
@-1024. ~CR4 )- 
@-1,(R4)>+ 
0-1,CR4)> 

Ri 

40% 

(R4)> 

(R4)> 


OMRESET ,CSRCR2 ) 
CSR(R2) 


@RDESC ,LORCV(R2 ) 


@BDIEL ,CSRCR2) 
_— 


R4 45% 

BD ,CSR(R2) 
R4 

R4,47% 


OMRESET ,CSRCR2) 
CSR(R2) 


@RDESC .R4 
FLAGWORO(R4 ),@-1 
50% 
STATSC(R4),@-1 
50$ 
STAT4(R4),0-1 
50% 


@RDESC +RDESSZ .R4 
— es 


65,EMSG65 


@-1,R0 
QNAE XI 
QNAADO ,R1 


R2, -( SP) 
RS, -(SP) 


sPOINTER TO BUFFER 


sGET POINTER TO 2ND BUFFER 
sSIZE IN WORDS 
sSTATUS WORD 1 
sSTATUS WORD 2 


D OF INVALIO DESCRIPTOR 


SEQ 68 


FLAGWOR 
;DESCRIPTOR BITS OF INVALID DESCRIPTOR 


s CLEAR THE RESET BIT 
; WRITE IT TO THE QNA 


;SET POINTER TO DESCRIPTOR 
;SET LOAD ROM BIT 

sBEGIN THE LOAD 

sWAIT FOR BOOT PHASE 1 


;CLEAR BOOT BIT 
sWAIT FOR BOOT PHASE 2 


; CLEAR THE RESET BIT 
; WRITE IT TO THE QNA 


;DIO CITIZENSHIP TEST LOAD O.K.? 
RROR 


NO, 


ERROR 


ERROR 
;GET POINTER TO 2ND DESCRIPTOR 


:0ID CITIZENSHIP TEST LOAD O.K.? 


ERROR. 


abs 


;SET FAILURE STATUS 
AND EXIT 


;GET BASE ADDRESS 


:SAVE RS STACKPOINTER 


CSERMRD 
65 
_— 


CVNIAAO 
QNAINI 


E6 
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INITIALIZE THE QNA 


071436 
071442 


071716 


012702 
004737 


012703 


013701 
005061 
005061 
005061 
012761 


012725 
012725 
004437 
006534 


014100 
004104 


100000 


177777 
072122 


010000 


177777 
072122 


024574 
024220 
000000 
070656 


000016 


QNAINI1: 


5$: 


10$: 


oC ITWORK 
PC, RBUFB SCITVECTOR 


CSP)+,RS 
(SP)+,R2 
RO 

80% 

RO, #100000 
80% 
67,EMSG67 


@-1,R0 
QNAE XT 


@xC ,CSR(R2) 
QNAIN1 
66 , EMSG66 


@-1,R0 
QNAE XT 


QNAADO ,R2 
OMRE SET . CSRBUF 
CSRBUF .CSRC(R2) 
#1, TIMER1 
TIMER 

S$ 
OMRESET , CSRBUF 


CSRBUF ,CSR(R2) 
QNAVCO, VECTOR(R2 ) 
ING , XRGCUR 


STATICR1) 
STAT2CR1) 

@xRGOO1 ,LOADD(R1 ) 
GETXNX 0, @XRGCUR 


SEQ 69 


sGET WORK 
3GO TO THE ‘CITIZENSHIP TEST VIA VECTOR 


sRESTORE RS STACKPOINTER 


+e ERRORS OCCUR DURING CITIZENSHIP? 
a 


3NO 

;NO, ERROR. 
TRAP CSERHRD 
. WORD 67 
. WORD EMSG67 
. WORD 0 

;SET FAILURE STATUS 

;AND EXIT 

31S TRANSCEIVER OK? 

sYES 

3NO, ERROR. 
TRAP CSERHRD 
. WORD 66 
. WORD EMSG66 
. WORD 0 


;SET FAILURE STATUS 
SAND EXIT 


RESTORE DEVICE ADDRESS TO R2 
SET SOFTWARE INIT BIT 

WRITE IT TO THE QNA 

TIMER FOR INITITIALIZE 


INIT DONE? 

BRANCH IF NOT 

CLEAR THE RESET BIT 

WRITE IT TO THE QNA 

SET THE INTERRUPT VECTOR 

SET XMIT POINTER TO BEGINNING OF RING 
N 


AGAI 

SET RCV POINTER TO BEGINNING OF RING 
SET PREVIOUS POINTER TO LAST DESCRIPTOR 
SET NEXT DESCRIPTOR POINTER 

RESET OWNERSHIP/STATUS OF XMIT RING 


RING ENTRIES 
RESET FLAG 
RESET STATUS 
RESET STATUS 2 


MOV @XRGCUR ,CRS)- 
MOV 20,(RS)-> 

JSR R4 ,PREG14 
.WORD GETXNX-ANCHOR 


GNAINI 


3381 
3382 


RAPT TAC EZE The GNA 


072124 


005303 
001354 
012705 
013701 
005061 
005061 


005061 
012761 


013762 


012725 
004437 
001232 


014500 


010025 
000207 


070656 


F6 
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024220 
024222 


20$: 


QNAE XT: 


SEQ 70 


.-AND RECEIVE RING 


CLEAR FLAG WORD 
CLEAR STATUS 1 
CLEAR STATUS 2 
SET THE VALID BIT FOR THIS DESCRIPTOR 
UPDATE, BUT DON’T VALDOIATE PREVIOUS 
ORRGCUR 


& 


SET POINTERS TO BEGINING OF RING 


INVALIDATE LAST DESCRIPTOR 
CLEAR BUFFERS RECEIVED COUNTER 
SET LOW RECEIVE LIST ADDRESS 
T HIGH ADDRESS OF RCV LIST 

; SET BITS IN BUFFERED CSR 
; WRITE TO THE QNA 
GET PHYSICAL NODE ADDRESS BUF 


GET BYTE OF NODE ADDRESS 


GET NEXT BYTE OF NODE ADDRESS 
CALL SETUP WITH INIT ADRESS FUNC CODE 
MOV @INIAOR,CRS)>+ 


DEC R3 

BNE 10$ 

MOV #15.,R3 

MOV RRGCUR ,R1 

CLR FLAGC(R1) 

CLR STATICR1) 

CLR STAT2C(R1) 

MOV @MVALID,DESCC(R1) 

CALL GETRNX 40, ORRGCUR 

DEC R3 

BNE 20% 

MOV @XRING , XRGCUR 

MOV ORRING ,.RRGCUR 

CLR RRINGH+DESC 

CLR NIRCNT 

MOV @RRING ,LORCV(R2 ) 

CLR HIRCVCR2 ) SE 
BIS @MILOOP !MINTEN!MRCVEN, CSRBUF 
MOV CSRBUF ,.CSRCR2) 

MOV OPHYADR, 

; 

; NOW SETUP ADDRESSES IN THE DEQNA 
MOVB NE TADDCR2),CR3)+ 
MOVB NETADD+2(R2),(R3)> 
MOVB NE TADD+4(R2),CR3)> 
MOVB NE TADD +6(R2),CR3)> 
MOVB NETADD+10(R2),(R3)-> 
MOVB NE TADD+12(R2),CR3) 
CALL SETUP @INIADR 
PsPOP RO 
RETURN RO 


JSR R4, PREG14 

.WORD  SETUP-ANCHOR 
GET RETURN STATUS 

MOV -C€RS),.RO 
FINISHED, LEAVE, VAMOOSE, ETC. 

MOV RO,CRS)> 

RTS PC 


G6 
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SETUP 


SETUP UP NI ADDRESSES I 


.SBTTL SETUP - SETUP UP NI ADDRESSES IN QNA 


+ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE LETS THE QNA KNOW WHICH ADDRESSES IT IS SUPPOSED TO 
RECOGNIZE. 


BEGIN 
POINT TO TARGET ADDRESS TABLE 
GET SETUP TYPE FROM PARAMETER STACK 
CASE SETUP TYPE 
‘ INITIALIZE TABLE 
. : INITIALIZE ADDRESS GROUP POINTER 
- WHILE ALL ADDRESS GROUPS HAVE NOT BEEN WRITTEN 
. INITIALIZE COLUMN POINTER 
, . POINT TO BASIC ADDRESSES TABLE (MBZ, OUR OWN) 
. : ‘ DO WHILE ALL ADDRESS COLUMNS FOR THIS GROUP ARE DONE 
° ‘ ‘ ; IF a” ADDRESSES HAVE BEEN WRITTEN 


; ; ewe orn" TO OUR OWN NI PHYSICAL ADDRESS 
’ EXECUTE SUBROUTINE TO FILL IN THIS ADDRESS 


. ENDDO 
ADD DECNET CONSOLE ID MULTICAST ADDRESS 
‘ ° an ood TO MULTICAST ADDRESS 
. : INIT GROUP POINTER 
. , INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 
. ° INIT ROW POINTER 
. . EXECUTE ROUTINE TO FILL IN THIS ADDRESS 
KILL DECNET CONSOLE ID MULTICAST ADDRESS 
. POINT TO MULTICAST 
‘ INIT GROUP POINTER 
° INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 
‘ INIT ROW POINTER 
. , EXECUTE ROUTINE TO FILL IN THIS ADDRESS 


ENOCASE 
VALIDATE THE XMIT DESCRIPTOR FOR A SETUP 
EXECUTE ROUTINE TO XMIT THE SETUP PACKET 
IF STATUS = SUCCESS 
THEN 
SET STATUS = ERROR 
EXECUTE ROUTINE TO FIND A RECEIVED PACKET 
IF ERROR WAS DETECTED 
dae” REPORT RECEIVE ERROR 
; IF NO_PACKET HAS BEEN FOUND 
, as REPORT PACKET NOT RECEIVED 
3 IF PACKET IS NOT A SETUP PACKET 


N 
REPORT UNEXPECTED PACKET 


ELSE 


SEQ 71 


IF ee PACKET SIZE NOT = RECEIVED PACKET SIE 


3527 
3528 
3529 072126 


> 
a 
; 
‘ 
é 
é 
. 
3 
. 
> 
5 
3 
‘ 
a 
5 
‘ 
« 
° 
‘ 
e 
5 
ey 
; 
‘ 
; 
3 
« 
: 
. 
: 
a 
; 
6 
: 
3 
® 
a 
; 
é 
5 
3 
. 
? 
. 
5 
5 
+ 
& 
2 
. 
® 
a 
. 
: 
‘ 
° 
S 
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REPORT BYTE COUNT ERROR 
. XMITTED SETUP DATA NOT = RECEIVED SETUP DATA 
REPORT ADDRESS MISMATCH 
STATUS = SUCCESS 


, : : _ENOIF 
: ENDIF 
ENDIF 
ENDIF 
RETURN STATUS = STATUS 
RETURN WITH RETURN STATUS 
END 
CALLING SEQUENCE 
TBD 
INPUT 


; 


IMPLICIT INPUT 


OUTPUT 


IMPLICIT OUTPUT 


COMPLETION CODES 


SIDE EFFECTS 
NONE 
REGISTERS USED 


RO - RETURN STATUS, SET BY CALLED ROUTINES 
ADDRESS GROUP POINTER 


R2 - ADORESS TE 
R3 - POINTS TO TABLE OF NI 


DEBUG 
NONE 


ETUP: 


ELSE 


SEQ 72 


es 


3530 
3531 
3532 
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0723512 


012700 
012704 


014501 
100005 


104454 
000062 
065544 
000000 
000536 
022701 
002005 


012701 


062701 
001427 
022701 
001024 


013701 
012761 


004437 
001560 


014500 
001075 
013701 
012761 


004437 
001560 


014500 
000463 


012702 
012703 


005202 


177777 
023570 


072204 


024220 
177705 


070656 


177777 
004002 


10$: 


308: 


MOV 
MOV 
Ps$POP 
BPL 
ERRSF 


#-1,R0 
@TGTADR ,R4 
R1 

10$ 
50,EMSG5O 


SETEXI 
#2,R1 

20$ 
51,.EMSG51 


SETEXI 

Ri 

#30$,R1 
CR1),PC 
SETINI - 30$ 
SETADD - 30% 
SETKLD - 30% 
#-100,R1 
#100,R1 

20$ 

#200 ,R1 

20% 

XRGCUR ,R1 
@-100,WRDCNT(R1) 
SETWRT 

RO 

SETEXI 
XRGCUR ,R1 
@-73,WRDOCNTCR1) 
SETWRT 

RO 

SETEXIT 


#-1,R2 
ONOADR ,R5 


R2 


SEQ 75 


ASSUME ERROR 
DEQNA ADDRESS TABLE (NOT NODE TABLE) 
GET PARAMETER, BUT DON’T LOSE IT 

MOV -(RS),R1 
BRANCH IF NOT UNDER RANGE 
REPORT RANGE UNDERFLOW 


TRAP CSERSF 
“WORD EMSGSO 
“WORD 0 


CHECK UPPER LIMIT OF CASE OFFSET 
BRANCH IF WITHIN RANG 
REPORT RANGE OVERFLOW 


TRAP CSERSF 
-WORD 51 
-WORD EMSGS1 
-WORD O 


LEAVE 


TURN INTO WORD INDEX 
POINT TO WORD OFFSET 
GO 00 IT 


; OFFSET TO INITIALIZE 


OFFSET TO SET DECNET MULTICAST 
OFFSET TO KILL DECNET MULTICAST 


GROUP POINTER 


BUMP THE GROUP POINTER 

IF ZERO, DO THE FIRST GROUP 

HAVE THE TWO GROUPS BEEN WRITTEN? 
BRANCH IF NOT 


GET XMIT PACKET ADDRESS 
WRITE ALL ADDRESSES 


WRITE THEM 
JSR R4 ,PREG14 
-WORD SETWRT-ANCHOR 
ANY ERROR 
MOV -CRS),RO 


IF YES, GO WRITE THE ADDRESSES 
ELSE, GET NXT XMIT DESCRIPTOR 
WORD COUNT TO INIT THE MODE BITS 
WRITE THE PACKET 


JSR R4,PREGI4 
.WORD SETWRT-ANCHOR 
GET STATUS 
LEAVE 


INIT THE COLUMN POINTER 
POINT TO MBZ AND PHYSICAL ADDRESSES 


BUMP THE COLUMN POINTER 


072514 


072452 


022702 
36 


012703 


004137 
000762 


012705 
005001 
012702 
004137 
013701 
012761 


004437 
001560 


014500 
000420 


012703 


013701 
012761 


004437 
001560 


014500 


010025 
000207 


> BERYE OB RISABGRESSES“PNGNa” 229° 


000010 


SETKLD: 


SETEXI: 


Jo 
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CMP #8. ,R2 

BEQ 10$ 

TsT Ri 

BNE 40$ 

CMP @2,Re2 

BHIS 50$ 

MOV OPHYADR ,RS 
JSR R1,SETFIL 
BR 30% 

MOV OMCSTAD.RS 
CLR Ri 

MOV @4,R2 

JSR lh 
MOV XRGCUR ,R 

MOV %-72, WRDCNTCRL) 
CALL SETWRT 
PsPOP RO 

BR SETEXI 

MOV @PHYADR ,RS 
CLR Ri 

MOV 64,R2 

JSR R1,SETFIL 
MOV XRGCUR ,R1 
MOV @-72,WROCNTCR1) 
CALL SETWRT 
PsPOP RO 

RETURN RO 


SEQ 74 


ADDRESS COLUMNS O - 7 INITIALIZED? 
DO NEXT GROUP IF YES 

IS THIS THE FIRST GROUP: 

BRANCH IF NOT 

HAVE eo ADDRESSES BEEN WRITTEN? 
BRANCH IF NOT 


E!.SE, POINT TO OUR PHYSICAL ADDRESS 


FILL IN THE ADDRESS 
GU DO NEXT COLUMN 


GET DECNET a. ADDRESS 


T 
WRITE ADDRESSES ONLY 
WRITE THE NEW ADDRESS TABLE INTO QNA 
JSR R4 ,PREG14 
.WORD  SETWRT -ANCHOR 
GET THE RETURNED STATUS 
MOV -(RS),RO 
LEAVE 


GET OUR PHYSICAL ADDRESS 
INIT GROUP POINTER 

INIT ADDRESS COLUMN POINTER 
FILL IN THIS ADDRESS 

GET CURRENT XMIT DESCRIPTOR 
WRITE ADDRESSES ONLY 

WRITE THE NEW — TABLE 


R4,PREGI4 
-WORD SETWRT-ANCHOR 
GET THE RETURNED STATUS 
MOV -(R5),RO 
RETURN 
RTS PC 


4 


NIAAO DE 
TWRI 


024224 
023570 


000000 
070656 
050252 


INPUT 


OUTPUT 


KO 
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.SBTTL SETWRT - WRITE A SETUP PACKET 


** 
FUNCTIONAL DESCRIPTION: 


SEQ 75 


THIS ROUTINE TAKES CARE OF WRITING SETUP PACKETS AND VERIFYING THAT 


ALL OF IT OCCURRED OKAY 
CALLING SEQUENCE 


CALL 


; 


IMPLICIT INPUT 


; 


; 


; 


; 


SIDE EFFECTS 


SETWRT 


ImnPLICIT OUTPUT 


COMPLETION CODES 


REGISTERS USED 


D 
tw 
eo oe 


DEBUG 


SETWRT: 


10$: 


HOLDS 


RO 
XRGNXT ,R4 


@TGTADR ,LOADD( R4 ) 


XMIT 


FATFLG 
20$ 


@XxMTSET 


KET 


HOLDS TRANSMITTED ADDRESS TABLE ADDRESS 
ADDRESS OF PAC 
AND ADDRESS OF RECEIVED ADORESS TABLE 
COUNT OF NUMBER OF BYTES TO CHECK 


WRITE NEW ADDRESS TABLE INTO THE QNA 


ASSUME ERROR 

GET DESCRIPTOR 

TRANSMIT THE PACKET 
MOV 
JSR 
. WORD 


NON EXISTENT MEMORY? 
BRANCH IF NOT 


@xMTSET,CRS)- 


Gynt TO 


3659 
3660 


005037 
104456 
00005 


050252 


070656 
050252 


024226 
020000 


000012 


000010 


20%: 


30$: 


40$: 


60$: 


73 NLM, 


CLR 


LG 
ERRHRD 43,EMSG45 


BR 
P$POP 


BEQ 
ERRHRD 
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FATF 


WRTEXI 
R1 


30$% 
45,EMSG45 


WRTEXI 
RECEVE 


FATFLG 


WRTEXI 


RRGNXT ,R2 

@MRSETP ,STATICR2) 
608 

47,EMSG47 


SE TVAL 


LOADOCR4 ).R1 
se 


R4 


#12 ,R4 
LOADD(R2),R5 
R4,STAT2CR2) 


8 70$ 
ERRHRD 48,EMSG48 


SEQ 76 
CLEAR FATAL ERROR FLAG 
REPORT TIMEOUT 
TRAP CSERHRD 
-WORD 43 
-WORD EMSG43 
-WORD O 
LEAVE 
GET STATUS 
MOV -(RS),R1 
CONTINUE IF OKAY 
REPORT XMIT ERROR 
TRAP CSERHRD 
-WORD 45 
. WORD a 


. WORD 
EXIT SETUP, FAILURE OCCURRED 


PACKET FOUND? 
JSR R4 ,PREGI4 
.WORD RECEVE -ANCHOR 
NONE EXISTENT MEMORY ERROR? 


EXIT SETUP, ERROR ALREADY REPORTED 
WERE ANY PACKETS RECEIVED 
MOV 


= RS) ,R2] 
BRANCH IF YES 
NO PACKET RECEIVED 
_ 


AP 
. WORD 
-WORD EMSG46 
WORD O 


GET ADDRESS OF THE PACKET 

SETUP PACKET? 

BRANCH IF IT IS 

REPORT UNEXPECTED — STATUS 
RAP _ 


EMSGA? 
1) 


“WORD 
"WORD 
EXIT 


GET XMITTED ADDF SS TABLE 

GET XMIT SIZE 

CONVERT FROM fwOS COMPLEMENT 
TURN WORD COUNT TO BYTE COUNT 
COMPENSATE FOR GARBAGE BYTES 

GET RECEIVED PACKET 

IS THE SIZE THE SAME? 

BRANCH IF IT IS 

BYTE COUNT ERROR 


TRAP CSERHRD 


CVNIAAO 
SETWRT 


3717 
0 


M6 
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000060 
065446 
000000 


012725 
012725 
004437 
006534 


010025 
000207 


- WRITE A SETUP PACKET 


024224 
024574 
000000 


000010 
000012 


024224 
000000 
070656 


708: 


33 NLM, 


80$: 


WRIEXI: 


SETVAL 
SUB #12,R4 
ASR R4 
CMP CR1)+,CR3)+ 
BEQ 90$ 
ERRHRD 44,EMSG44 
BR SETVAL 
DEC R4 
BNE 80$ 
CLR R 


CALL GETRNX 41, @RRGNXT 


MOV XRGNXT ,R4 


CLR FLAGC 

CLR STATICR4) 

CLR STAT2C(R4 ) 

CALL GETXNX #0, @XRGNXT 
RETURN RO 


EXIT 


REMOVE GARBAGE BYTE COUNT 
TURN BYTE COUNT INTO WORD COUNT 


DOES XMITTED = RECEIVED? 
IF NOT 


BRANCH 
COMPARE ERROR 


LEAVE 


SEQ 
-WORDB 48 
-WORD EMSG4E 
«WORD O 
TRAP CSERHRD 
. WORD a 
-WORD EMSG44 
WORD O 


DECREMENT THE BYTE COUNT 


CODE IN 
REVALIDATE THE DESCRIPTOR 
UPDATE NEXT AND PREVIOUS PACKET ADDRESS 
O@RRGNX RS )-+ 


MOV T, 
MOV #1,CRS)-> 
JSR R4 ,PREG14 
-WORD GETRNX-ANCHOR 
GET TRANSMIT PACKET ADDRESS AGAIN 
RESET ADORESS 
REINIT THE DESCRIPTOR 
GET NEXT XMIT BUFFER 
MOV @XRGNXT.CRS)> 
MOV #0,CRS)+ 
JSR R4,PREG14 
-WORD GETXNX-ANCHOR 
RETURN WITH STATUS 
MOV RO,CRS)> 
RTS 


N6 
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SETFIL - FILL AN ADDRESS SLOT IN SETUP TABLE 

Syne .SBTTL SETFIL - FILL AN ADDRESS SLOT IN SETUP TABLE 

;ee 

3721 ; FUNCTIONAL DESCRIPTION: 

3722 3 

3723 ; THIS 

3724 : 

3725 ; BEGIN 

3726 ; INIT THE ROW POINTER 

3727 : - UNTIL 6 ADDRESS BYTES OF THE ADDRESS ARE WRITTEN 

3728 : ADD ROW NUMBER TO INDEX 

3729 : ADD COLUMN NUMBER TO INDEX 

3730 ; ADD TABLE ADDRESS TO INDEX 

3731 : STUFF THE ADDRESS BYTE IN 

3732 ; ENDDO 

3733 ; BUMP ROW POINTER 

3734 ; STUFF A ¥* INTO THIS BYTE (MBZ) 

3735 ; BUMP _ POINTER 

3736 ; STUFF A ZERO INTO THIS BYTE (MBZ) 

3737 ; RETURN FROM SUB 

3738 ; 

3739 ; 

3740 ; CALLING SEQUENCE 

3741 ; 

3742 3 JSR PC,SETFIL 

3743 ; 

3744 ; INPUT 

3745 ; 

3746 3 Ri = GROUP POINTER 

3747 : R2 = COLUMN POINTER 

3748 ; R3 = POINTER TO NI ADDRESS 

3749 ; R4 = ROW POINTER 

3750 ; 

3751 ; IMPLICIT INPUT 

3752 3 

3753 ; NONE 

3754 : 

3755 ; OUTPUT 

3756 : 

3757 3 NONE 

3758 ; 

3759 ; IMPLICIT OUTPUT 

3760 : 

3761 ; NONE 

3762 : 

3763 ; COMPLETION CODES 

3764 ; 

3765 ; NONE 

3766 : 

3767 ; SIDE EFFECTS 

3768 5 

3769 : NONE 

3770 ; 

3771 ; REGISTERS USED 

3772 3 

3773 ; Ri - INDEX 

3774 : R2 - ADDRESS COLUMN POINTER 

3775 ; R3 - POINTS TO GROUPS OF ADDRESSES 


111314 
112714 
062704 
112714 


012601 
000201 


023570 


000000 
000010 
000000 


200 
ABLE 


DEB 


“INI 
00 
1FI 


— 


UG 


T 
WH 
L: 


Ra 


NONE 


B/ 
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- ADDRESS ROW POINTER 


THE ROW POINTER 
ILE 6 ADDRESS BYTES OF THE 


MOV 
ADD 
ADO 
PUSH 


MOV 
ADD 


— R4 


(R3),CR4) 
@0,(R4) 
os. R4 
@0,(R4) 
Ri 


Ri 


ADORESS ARE TO BE WRITTEN 


= ROW POINTER TO DESTINATION TABLE 
UMN TO IT 


ADD SAVED GROW TO IT 
SAVE RETURN ADORESS 


INIT LIMIT TO CURRENT 
UPPER LIMI 


Rl, -(SP) 


SEQ 79 


ADORE 
MIT (5 ADRS BYTES « 6 BYTE OFFSET TO 


NEXT 
STUFF THE ADORESS BYTE IN 


ie POINT TO NEXT ROW IN THE COLUMN 
VE ALL ADDRESSES BEEN WRITTEN 


ORANCH IF YES 
AND STUFF IT IN 


STASH LAST ADDRESS BYTE 
NEXT BYTE MBZ 

POIN! TO NEXT BYTE 

NEXT BYTE MBZ 

RESTORE RETURN ADORESS 


(SP )-,R1 


C/ 


CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 15:12 PAGE 25 
QNA INTERRUPT SERVICE ROUTINE 


010146 


052737 
013761 


100000 


050256 
100000 
050246 


050246 
000016 


SEQ 80 


.SBTTL QNA INTERRUPT SERVICE ROUTINE 
" FUNCTIONAL DESCRIPTION: 
THIS IS THE INTERRUPT SERVICE ROUTINE 
CALLING SEQUENCE 


OMRCVIN,RS 
20% 


NIRCNT 


OMRCVIN, CSRBUF 


: 

3 

$ 

3 

3 

; 

3 

3 NONE 

3 

; INPUT 

3 

3 NONE 

3 

; IMPLICIT INPUT 

3 

3 NONE 

3 

; OUTPUT 

3 

3 NONE 

; 

; IMPLICIT OUTPUT 

3 

3 NONE 

; 

; COMPLETION CODES 

$ 

3 NONE 

; 

; SIDE EFFECTS 

3 

3 NONE 

3 

; REGISTERS USED 

3 

3 NONE 

$ 

; DEBUG 

; 

$ NONE 

ee 

QNAISR: 
MOV 
MOV 
MOV 
MOV 
BIT 
BEQ 
INC 
BR 

10%: 
BIT 
BEQ 
INC 
BIS 
MOV 


CSRBUF ,CSRCR1? 


:SAVE R1 


3; GE 


T QNA ADDRESS 
AND ITS CSR CONTENTS 
INTERRUPT RESULT OF MEMORY TIMEOUT? 


SET FLAG 
CONT INVE 


ad INTERRUPT ?? 
YES, SET FLAG 


SET RECEIVER DONE BIT IN BUFFERED CSR 
WRITE IT TO REARM INTERRUPTS 


GANA RRGH MERE HEBCHSERIRE*G MACRO "1200 
3863 073142 042737 100000 050246 
3864 073150 032703 000040 
3865 073154 001 
073156 012761 024260 900004 
3867 073164 000006 
3868 073170 20$: 
3869 073170 032703 000200 
3870 073174 001405 
3871 072176 005037 050260 
3872 073202 000404 
3873 073204 30%: 
3874 073204 005257 050266 
3875 075210 40%: 
3876 073210 005237 050270 
3877 073214 5O0$: 
3878 073214 012605 
3879 073216 012601 
073220 


D7 
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OMRCVIN, CSRBUF 
-_- 


$ 
@RRING ,LORCV(R1) 
HIRCVCR1) 


OMXMTIN,R3S 
30$ 


XFLAG 
50$ 


BCOUNT 
ERRFLG 


(SP )+,R3 
(SP)+,R1 


CLEAR THE BIT 
~ en LIST INVALID? 


SET LOW ADDRESS OF RINGS 
CLEAR UPPER ADDRESS BITS 


TRANSMIT INTERRUPT ?? 


SEQ 81 


YES, INDICATE THAT XMIT HAS OCCURRED 
LEAVE 


ELSE, NONSENSE INTERRUPT 


RESTORE REGISTERS 
RESTORE REGISTERS 
AUF WIEDERSEHEN 
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- TRANSMIT QNA PACKETS 


XMIT 


3928 
39 


073222 


07 
073260 


005037 


012737 
012737 


050274 


000020 
000020 


024220 


000010 
073650 


002402 
002404 


x; 


SEQ 82 


.SBTTL XMIT - TRANSMIT QNA PACKETS 
* 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE SETS UP THE TRANSMIT DESCRIPTOR RING ENTRIES AND WRITES 
THE RING ADDRESS INTO THE TRANSMIT LOW AND HIGH ADDRESS REGISTERS TO 
START TRANSMISSION. 


CALLING SEQUENCE 


CALL ws Am i OR @XMTDAT ; XMTSET = SETUP, XMTDAT = DATA 
INPUT 

NONE 
IMPLICIT INPUT 

NONE 
OUTPUT 


Pi = STATUS - O = SUCCESS, 
IMPLICIT OUTPUT 

NONE 
COMPLETION CODES 


0 = SUCCESS 
-1 = FAILURE 


SIDE EFFECTS 
NONE 
REGISTERS USED 


-1 FOR FATLURE 


DEBUG 

NONE 

gece 

XMIT: 
CLR RETRYS 

10$: 
MOV #16. ,LSRTRY ; SET CARRIER LOSS RETRY COUNT 
MOV 016. ,.NCRTRY ; SET NO CARRIER RETRY COUNT 

20%: 
MOV XRGCUR ,R4 ; MOVE RING ENTRY LOCATION INTO R4 
TST (R4) ; MAKE SURE WE OWN THIS 
BEQ 30$ ; BRANCH IF WE DO 
TST STATICR4) ; ELSE, SEE IF STATUS IS WRITTEN 
BNE 30% ; IF YES, CONTINUE 
JMP 160% ; ELSE REPORT THAT QNA STILLS OWNS IT 


F7 
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XMIT 


005063 
012701 


001444 
032764 


- TRANSMIT QNA PACKETS 


130000 
023570 


003202 


30$: 


40$: 


45$: 


708: 


100$: 


R1 
40% 
@TGTADR ,LOADDC(R4 ) 
50$ 


RSPFLG 


45$ 
BUFLEN, epercns > 
WROCN TCR 4) 
WROCNTC(R4 ) 
LOADD(R4),R2 

06 ,Re 

@PHYADR ,.RS 
CR3)+,CR2)>+ 
CR3)¢,CR2)> 
CR3)+,CR2)>+ 


@MVALID!MEOM,DESCC(R4 ) 
@XRGOO1 , LOADD(R4 ) 


FLAGC(R4 ) 
STATICR4) 
STAT2C(R4) 
#1,XFLAG 
QNAADO ,R3 
#11350, TIMER] 
@MINVXM, CSRCR3) 
70$ 

TIMERS 

60$ 

180$ 
R4,LOXMTCRS) 
HIXMTCRS ) 
@TIMER? ,R1 
#11350,(R1) 
XFLAG 


100$ 
FATFLG 


OMXMTIN, CSRBUF 
CSRBUF ,CSRCRS) 
OMXMTIN, CSRBUF 
STATICR4) 


160% 
OMXSE TP ,DESCC(R4 ) 


eo @- 


SEQ 83 


3 GET XMIT TYPE 


MOV -(RS),R1 
NOT A SETUP PACKET 


; BRANCH IF 
OMVALID!MEOM!MXSETP, DESC(R4) + SET DESCRIPTOR BITS 


SET BUFFER ADDRESS 


ARE WE IN LISTEN/RESPOND MODE? 
BRANCH IF YES, JUST VALIDATE AND XMIT 
BUF LENGTH TO FIRST WORD OF NEXT RING 
TURN IT INTO A WORD COUNT 

TWO'S COMPLEMENT THE COUNT 

GET ADORESS OF BUFFER 

POINT TO SOURCE ADDRESS FIELD 

POINT TO OUR PHYSICAL ADDRESS 

FILL IN Mey TWO ADDRESS BYTES 

AND NEXT TWO ADDRESS BYTES 

AND NEXT TWO ADDRESS BYTES 


SET VALIO BIT 
SET BUFFER ADDRESS 


CLEAR FLAG WORD 


GET DE 
SET TIMER 


IS XMIT LIST INVALID? 
YES, CONTINUE 
TIMEOUT YET 


NO 
TIMEOUT, REPORT ERROR AND LEAVE 


LOW ADDRESS OF XMIT BUFFER 
START TRANSMISSION 
SET UP TO WAIT FOR TRANSMIT TO COMPLETE 


SEE IF TRANSMIT DONE BIT SET 
IF SET, SKIP WAIT LOOP 

NON EXISTENT MEMORY? 

BRANCH IF NOT 

LEAVE ROUTINE 


ELSE, SEE IF TIMEOUT YET 
NO, WAIT 
YES, ExIT 


SET XMIT DONE BIT IN BUFFERED CSR 
REARM XMIT INTERRUPTS 

CLEAR THE BIT IN BUFFERED CSR 

SEE WHO OWNS THIS ENTRY 
IF QNA STILL OWNS THIS, 
SETUP PACKET? 


SOMETHING IS WRONG 


SMYEAAO BERRA Ty oka BReRE TS AAO 


3996 
3997 


073546 
073550 
073550 


050274 
000003 


073370 


050272 


G/ 
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000010 


000010 


050274 


105$: 


1108: 


1208: 


140$: 


1508: 


1608: 


1708: 


180$: 


BNE 105$ 

CALL BMPCNT R4, OBMPXMT 
BIT OMXERRS , STATICR4 ) 

BNE 120% 

CALL GETXNX 0, @XRGCUR 
CLR R3 

BR 200% 

BIT 

BEQ 

INC RETRYS 

CMP @3,RETRYS 

BPL 150$ 

BR 110% 

JMP 50$ 

ERRDF 10,EMSG10,ERR1 

BR 190$ 

ERRDF 12,EMSG10,ERR1 

BR 190% 


INC TIMOUT 
ERRHRD 8,EMSGO8,ERR1 


SEQ 84 


BRANCH IF IT IS, WE DON’T COUNT SETUP STATISTICS 
ELSE, GO a COUNTERS 


V OBMPXMT,CRS)+ 
MOV R4,(RS)> 
JSR R4 , PREG1 
-WORD B8MPCNT -ANCHOR 


SEE IF ANY ERRORS 
IF YES, BRANCH AND TAKE CARE OF THEM 


UPDATE “TRANSMIT RING CURRENT” POINTER 
v @XRGCUR es 


-WORD GETXNX-ANCHOR 
INDICATE SUCCESS 
ETURN 


oye aati ; WAS MESSAGE STILL SENT? 
; 


BRANCH IF YES, DO NEXT ONE 


LET‘S TRY IT AGAIN, KEEP COUNT OF THEM 
HAVE WE RETRIED THREE TIMES YET? 

IF NOT, THEN LET’S RETRANSMIT 

ELSE, CLEAN UP AND LEAVE 


TRY AGAIN 
TRANSMIT RING BOOKKEEPING ERROR 
TRAP CSEROF 
“WORD EMSG1O 
"wORD ERRI 
BOOKKEEPING ERROR, XRGNXT SHOULD = XRGCUR 
TRAP CSERDF 
: 12 
“WORD EMSG10 
"WORD ERRI 
REPORT ERROR 
TRAP CSERHRD 
WORD 8 
"wORD  EMSGO8 
“WORD ERRI 
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4024 0737 190$: 
4055 873318 012703 177777 MOV #-1,R3 s ERROR INDICATOR 
4026 073714 200%: 
4027 073714 005064 000000 CLR FLAGCR4 ) ; CLEAR FLAG WORD 
4028 073720 005064 000010 CLR STATICR4) ; CLEAR STATUS WORD 1 
4029 073724 005064 000012 CLR STAT2CR4) ; CLEAR STATUS WORD 2 
4030 073730 005064 000002 CLR DESC(R4) : INVALIOATE THE DESCRIPTOR 
4031 073734 j RETURN R53 ; RETURN 


073734 010325 MOV R3,CRS)>+ 
073736 000207 RTS PC 


1/ 


SEQ 864 
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4035 
<— .SBTTL RECEVE - RECEIVE QNA RING BUFFERS 
4055 ee 
pres ; FUNCTIONAL DESCRIPTION: 
40 ; 
4038 ; THIS ROUTINE TAKES INCOMING DATA BUFFERS FROM THE QNA AND CHECK FOR 
= : ERRORS. THIS PROCESS CONTINUES FOR ALL COMPLETED BUFFERS 
4040 ‘ 
4041 ; CALLING SEQUENCE 
4042 3 
4043 : CALL RECEVE 
4044 ; P$POP Pil 
4045 : 
4046 ; INPUT 
4047 ; 
4048 3 NONE 
4049 ; 
4050 ; IMPLICIT INPUT 
4051 5 
4052 ; NONE 
4055 : 
4054 ; OUTPUT 
4055 ; 
aaat 3 NUMBER OF PACKETS PROCESSED BY THIS ROUTINE 

3 

4058 ; IMPLICIT OUTPUT 
4059 : 
4060 ; NONE 
4061 e 
4062 ; COMPLETION CODES 
4063 : 
4064 3 NONE 
4065 é 
4066 ; SIDE EFFECTS 

» 4067 ; 
4068 3 NONE 
4069 3 
4070 ; REGISTERS USED 
4071 ; 
4072 ; NONE 
4073 3 
4074 ; DEBUG 
4075 3 
4076 ; NONE 
4077 or 
4078 073740 RECEVE: 
4079 073740 005000 CL RO ; SeT STATUS TO SUCCESS 
4080 073742 005002 CLR R2 ; CLEAR PACKETS HANDLED COUNTER 
4081 073744 10%: 
4082 073744 005737 050256 TST NIRCNT ; SEE IF ANY PACKETS TO RECEIVE 
4083 073750 001002 BNE 20% ; IF YES, CONTINUE 
4084 073752 000137 074626 JMP 180$ ; ELSE, EXIT 
4085 073756 20%: 
4086 073756 013704 024222 MOV RRGCUR ,R4 ; MOVE CURRENT RCV RING POINTER To R4 
4087 073762 016401 000010 MOV STATICR4),R1 ; MOVE STATUS OF PACKET TO Ri 
4088 073766 001002 BNE 303 ; BRANCH IF WE OWN IT 
4089 073770 000137 074606 JMP 160$ ; STILL OWNED By QNA, ERROR 
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- RECEIVE QNA RING BUFFERS 

4090 073774 308: 

4091 073774 032764 020000 000010 BIT OMRSETP ,STATICR4) ; WAS A SETUP PACKET RECEIVED? 

4092 074002 001402 BEQ 32% ; BRANCH IF NOT 

4093 074004 000137 074560 JMP 150% ; ELSE, LEAVE 

4094 074010 32$: 

4095 074010 CALL BMPCNT R4, OBMPRCV ; UPDATE COUNTERS FOR RECEIVE 
074010 012725 000000 MOV Cv.C(RS)- 
074014 010425 MOV R4,(RS)- 
074016 37 070656 JSR R4 ,PREGI4 
074022 003736 -WORD BMPCNT -ANCHOR 

4096 074024 016403 000004 MOV LOADD(R4),R5 ; MOVE BUFFER ADDRESS INTO R35 

4097 074030 005737 002200 TST BLOFLG ; ARE WE IN BUILD MODE? 

4098 074034 00103 BNE 3218 ; BRANCH IF WE ARE 

4099 074036 023713 004010 CMP PHYADR ,CR3) ; CHECK TO SEE IF THE DESTINATION ADDRESS IS OURS 

4100 074042 001010 BNE 350$ ; BRANCH IF NOT 

4101 074044 023763 004012 000002 CMP PHYADR+2,2(R3) ; CHECK NEXT WORD OF ADDRESS 

4102 074052 1 BNE 3503 ; BRANCH IF NOT OURS 

4103 074054 023763 004014 000004 CMP PHYADR+4,4(R3) ; CHECK FINAL ADDRESS WORD 

rt 074062 001411 BEQ 3808 ; BRANCH IF EVERYTHING IS OKAr 

4106 074064 350$: 33 NLM. 

4107 074064 032701 004000 BIT @MRUNT ,R1 ; RUNT PACKET 

4108 074070 001037 BNE 322% ; IF YES, THROW OUT THE PACKET. $ 

4109 074072 ERRHRD 61,E™%SG61 ; REPORT UNKNOWN RECEIVER ERROR 
074072 104456 TRAP CSERHRD 
074074 000075 -WORDB 61 
074076 066412 -WORD EMSG61 
074100 -WORD O 

eit 074102 000137 074544 JMP 130% ; CONTINUE 

4112 074106 380$: 33 NLM, 

4113 074106 032701 004000 BIT OMRUNT ,R1 ; RUNT PACKET 

4114 074112 001451 BEQ 38% ; BRANCH IF NOT 

4115 074114 ERRHRD 54,EMSG54 ; REPORT THE ERROR 
074114 104456 TRAP CSERHRD 
074116 -WORDB 54 
074120 065773 .WORD EMSGS4 
074122 -.WORDB O 

Pet 074124 000137 074544 JMP 130$ ; CONTINUE 

4118 074130 3218: 

4119 074130 023713 004032 CMP MCSTAD,CR3) ; SEE IF CONSOLE ID MUALITCAST IS DESTINATION 

4120 074134 10 BNE $ ; IF NOT, REPORT E 

4121 074136 023763 004034 000002 CMP MCSTAD+2,2(R3) ; SEE IF CONSOLE ID MULITCAST IS DESTINATION 

4122 074144 1 BNE 35$ ; IF NOT, REPORT ERROR 

4123 074146 023763 004036 000004 CMP MCSTAD+4,4(R3) ; SEE IF CONSOLE ID MULITCAST IS DESTINATION 

4124 074154 001001 BNE 353 ; IF NOT, REPORT ERROR ° 

4125 074156 000427 BR 38% ; ITS A OKAY, MOVE ON 

4126 074160 353: 

4127 074160 ERRHRD 68,EMSG68 ; ELSE, REPORT THE ERROR 
074160 104456 TRAP CSERHRD 
074162 000104 .WORD 68 
074164 067121 .WORD EMSGeS 
074166 .WORD 0 

4128 

4129 074170 3228: 

4130 074170 010403 MOV R4,RS ; GET DESCRIPTOR ADDRESS 


J7 


IK / 
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REO ORBCE TYE GNA" RERG eurreRs se 
4131 074172 023703 024232 CMP RRGLST,RS ; IS THIS THE LAST DESCRIPTOR? 
4132 074176 001005 BNE 36% s BRANCH IF NOT 
4133 074200 013703 024216 MOV RRGSRT ,RS ; OTHERWISE, GET ADDRESS OF FIRST DESCRIPTOR 
4134 074204 000402 BR 37$% 
4135 074206 36$: , 
4136 074206 062703 000014 ADD @14,R5 ; POINT TO NEXT DESCRIPTOR 
4137 074212 37$: 
4138 074212 0057635 000010 TST STATICR3) ; HAS THE NEXT DESCRIPTOR BEEN USED? 
4139 074216 001406 BEQ 375$ ; BRANCH IF NOT 
: 4140 074220 022737 000001 050256 CMP @1,NIRCNT ; IF IT IS USED, DO WE RECORD ONLY THE BOGUS RECEIVE 
4141 074226 001002 BNE 375$ ; BRANCH IF THE GOOD AND THE BAD HAS BEEN RECORDED 
4142 074230 005237 050256 INC NIRCNT ; ELSE, BUMP COUNT SO WE DON’T MISS GOOD PACKET 
4145 074234 375%: 
4144 074234 000455 BR 50$ ; THROW THE PACKET OUT 
4145 074236 38$: 
4146 074236 026337 000014 050506 CMP PROTOTCR3),PROTOO ; SEE IF IT IS A LOOP-SERVER TYPE CODE 
4147 074244 001025 BNE 40$ ; IF NOT, CONT. 
4148 074246 062703 000016 ADD OF ASKIP RS ; POINT TO SKIP COUNT 
4149 074252 062505 ADD CR3)+,RS ; ADD SKIP COUNT ry DATA POINTER 
4150 074254 022713 000002 CMP oF »CR3) ; NEED TO FORWARD MESSAGE? 
4151 074260 001004 BNE 45$ ; IF NOT, MOVE ON 
4152 074262 005737 003202 TsT RSPFLG ; ELSE, ARE WE ACTING AS A RESPONDER? 
41535 074266 001416 BEG SO$ ; If NOT, JUST THROW IT OUT 
4154 074270 4a BR 60$ ; ELSE, GIVE IT TO THE CALLING ROUTINE 
4155 074272 45$: 
4156 074272 022713 000001 CMP @REPLY,CR3) ; ELSE, IS THIS A REPLY MESSAGE 
4157 074276 001441 BEQ 60% ; BRANCH IF YES 
4158 074300 ERRHRD S2,.EMSGS2 ; ELSE REPORT ERROR 
074300 104456 TRAP CSERHRO 
074302 000064 ‘ S2 
074304 065653 -WORD EMSGS2 
74306 000000 -WORDB O 
4159 074310 005200 INC RO ; PUT FAILURE STATUS INTO RO 
4160 074312 000545 BR 180$ ; LEAVE 
4161 074314 40$: 
4162 074314 026337 000014 050310 CMP PROTOTCR3S),PROTO2 ; ELSE CHECK FOR CONSOLE TYPE CODE 
41635 074322 001427 BEG 60% ; IF OK, CONT. 
4164 074324 50$: 
4165 074324 012764 000001 000002 MOV @1,DESC(R4) ; MARK IT AS A THROW AWAY 
4166 074332 CALL GETRNX #0, ; AND THROW IT OUT 
074332 012725 024222 MOV @RRGCUR CRS )> 
074336 012725 000000 MOV @0,CRS)>+ 
074342 004437 070656 JSR R4 ,PREG14 
074346 006450 -WORD GETRNX-ANCHOR 
4167 074350 020437 024226 CMP R4 ,RRGNXT ; IS THE CURRENT POINTER SAME AS NEXT? 
4168 074354 001007 BNE 55% ; BRANCH IF NOT 
4169 0743556 CALL GETRNX 41, @RRGNXT ; ELSE, UPDATE NEXT POINTER AS WELL 
074356 012725 024226 MOV @RRGNXT CRS )> 
074362 012725 000001 MOV 1. CR5)- 
074366 004437 070656 JSR R4,PREG14 
074372 006450 “WORD GETRNX-ANCHOR 
4170 074374 55%: 
4171 074374 005337 050256 DEC NIRCNT ; DECREMENT RECEIVE COUNTER 
4172 074400 000510 BR 170$ ; EXIT 
4173 074402 60$: 
4174 074402 032701 040000 BIT @MRERRS ,R1 ; SEE IF ANY ERRORS 
4175 074406 001462 BEQ 140$ ; BRANCH IF NOT 
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074410 


000000 
000414 


001405 


034007 


010000 


000010 


050276 


80$: 


100$: 


110$: 


1208: 


130$: 


140$: 


BIT 
BNE 
ERRHRD 


INC 


L/ 


SEQ 89 


@MRSETP!MDISC!MFRAM!MCRC!MOVF !MRUNT,R1 ; WAS THE PACKET TOO LARGE 
BRANCH IF NOT 


80$ ; 
53,EMSG53 ; REPORT THE ERROR 
TRAP CSERHRD 
-WORDB 53 
WORD EMSGS53 
-WORD O 
130$ ; CONTINUE 
+ anal Ri ; ARE THERE ANY OTHER VALID ERRORS? 
; BRANCH IF NOT 
SHOVF Ri 3 OVERFLOW? 
90$ ; BRANCH IF NOT 
55,EMSG55 ; REPORT OVERFLOW ERROR 
TRAP CSERHRD 
-WORDB 55 
. WORD EMSG55 
. WORD 0 
130$ ; BRANCH 
@MCRC ,R1 ; CRC ERROR? 
110$ ; BRANCH IF NOT 
56 ,EMSG56 ; ELSE REPORT IT 
TRAP CSERHRD 
-WORDB 56 
-WORD EMSGS56 
-WORD O 
OMFRAM,R1 ; WAS FRAMING ERROR ALSO SET? 
110$ ; BRANCH IF NOT 
57,EMSG57 ; REPORT THE ERROR 
TRAP CSERHRD 
-WORD 57 
-WORD EMSG5S7 
-WORDB O 
130$ ; CONTINUE 
@MSHORT ,R1 ; PACKET LESS THAN 10 BYTES? 
120% ; BRANCH IF NOT 
»E ; REPORT IT 
TRAP CSERHRD 
.WORD 60 
.WORD EMSG60 
.WORDB O 
130$ 
61,EMSG61 ; REPORT UNKNOWN RECEIVER ERROR 
TRAP CSERHRD 
-WORD 61 
.WORD EMSG61 
.WORDB O 
RCVERR ; ELSE, INCREMENT RECEIVE ERROR COUNTER 
RO ; SET STATUS TO FAILURE 
50$ ; UPDATE POINTERS AND RETURN 


M/ 
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RECEVE - RECEIVE QNA RING BUFFERS 

4209 074554 005237 050500 INC RCVBUF ; INCREMENT GOOD BUFFERS RECEIVED COUNTER 

4210 074560 150$: 

4211 074560 005202 INC Re ; KEEP COUNT OF HOW MANY BUFFERS RECEIVED 

4212 074562 005337 050256 DEC NIRCNT ; KEEP BOOKKEEPING IN ORDER 

4213 074566 CALL GETRNX #0, #RRGCUR ; UPDATE “RECEIVE RING CURRENT” POINTER 

74 012725 024222 Vv ORRGCUR , CRS) + 

074572 012725 MOV #0, CRS)+ 
074576 37 070656 JSR R4 ,PREG14 
074602 006450 WORD GETRNX-ANCHOR 

4214 074604 000406 BR 170$ 

4215 074606 160$: 

4216 074606 012700 000002 MOV #2,RO ; SET FAILURE STATUS IN RO 

4217 074612 ERROF 11,€MSG11,ERR1 ; RECEIVE RING BOOKKEEPING ERROR 
074612 104455 TRAP CSEROF 
074614 000015 ‘ 11 
074616 063735 -WORD EMSG11 
074620 070306 -WORD ERRI 

4218 074622 170$: 

4219 074622 005064 000002 CLR DESC(R4 ) ; INVALIDATE CURRENT DESCRIPTOR 

4220 074626 180$; 

4221 074626 RETURN R2 ; RETURN WITH NUMBER OF ENTRYS HANDLED 
074626 010225 MOV R2,(RS)> 
074630 000207 RTS PC 


074632 


074650 


012701 
014502 


050144 


000010 
000400 


R2 - 
R3 - SCRATCH PAD 
R4 - SCRATCH PAD 
DEBUG 

NONE 

Leis 

BMPCNT: 
MOV @CNTRS,R1 
P$POP RP 
P$POP RS 
BEG BMPREC 
MOV STATICR2),R4 
BIT @MFAIL ,.R4 


N/ 
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SEQ 91 


.SBTTL BMPCNT - UPDATE STATISTICS 


++ 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS USED TO UPDATE THE STATISTICS COUNTERS FROM THE 
INFO IN STATUS WORDS 1 AND 2 IN BUFFER DESCRIF.OR ENTRIES 


CALLING SEQUENCE 


CALL BMPCNT XFER TYPE,DESCRIPTOR ADDRESS 


INPUT 


DESCRIPTOR ADDRESS - ADORESS OF 


THE RING — ENTRY 


XFER TYPE - O = RING DESCRIPTOR FROM RCV LIS 
- 1 = RING DESCRIPTOR FROM XMIT LIST 


IMPLICIT INPUT 
NONE 
OUTPUT 
COUNTER ARE UPDATED 
IMPLICIT OUTPUT 
NONE 
COMPLETION CODES 
NONE 
SIDE EFFECTS 
NONE 
REGISTERS USED 


HOLDS ADDRESS OF COUNTER TABLE 
HOLOS ADDRESS OF RING DESCRIPTOR 


GET ADDRESS OF COUNTER TABLE 
GET ADDRESS en 


V -(RS),R2 
XMIT OR RECEIVE? 
BRANCH IF RECEIVE PACKET 
GET STATUS WORD 
DID WE GET HEARTBEAT FAILURE? 


DEQNA NI EXERCISER 


T - UPDATE STATISTICS 


001402 
005261 


000074 


016000 


000072 
004000 


177417 
000001 


177417 
000020 
000020 


000010 


000070 


000070 


000070 
000070 
000070 
000070 


aber of ce oe 


58%: 


108: 


BMPREC: 


BEQ 
INC 


B8 
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3$ 
C.COULCR1) 


lalate 
C.XABTCR1) 
@MAB 


108 : 
R4 


ete 
oc .RTRY,C.XABBCR1 ) 
R4 


OMLOSS,R4 

208 

@MNOCAR ,R4 

208 

oC .'.CAR,C.xXABBCR1) 
OMLOSS .R4 

OMNOCAR ,R4 

30% 

OC ..SHRT,C. XABBCR1) 
oc .RTRY,C.XABBCR1) 
408% 

ee oes 
oC .OPEN,C. XABBC(R1 ) 
BMPE XT 

0177417,R4 

BMPMA 

@20,R4 

@20,R4 

60% 

C.PXM2C(R1 ) 

BMPMUL 


C.PXMS(R1) 
BMPMUL 


STATICR2),R4 
OMRERRS ,R4 
5$ 

BMPMUL 


BRANCH 


3 BRANCH IF NOT 
s ELSE, INCREMENT NUMBER OF COLLISION TEST FAILURES 


SEE IF XMISSION WAS ABORTED; IF IT WAS, SET REASON MASK. p 1 _ 16 
RETRIES WILL HAVE BEEN ATTEMPTED FOR CARRIER LOSS AND NO CARR 


IF NOT 


SAVE R4 _ 
CLEAR EVERYTHING BUT RE TAY COUNT 


BRANCH 


. - (SP) 
IF THE COUNT IS NOT 


SEQ 92 


ZERO 
ELSE, SET RETRY FAILURE BIT IN BIT '*ASK 


RESTORE CONTENTS OF R4 
MOV 


(SP )+,R4 


WAS LOST CARRIER REASON FOR ABORT? 
BRANCH IF NOT 

TEST FOR NO CARRIER SENSED 
BRANCH IF ZERO 

SET CARRIER Lust BIT 


WAS LOST CARRIER REASON FOR ABORT? 
H IF NOT 


BRANC 


TEST FOR NO as, SENSED 


BRANCH 
Yes, 


RETRY 


If Z€ 


IT’S SET, SET SHORTED BIT 


ABORT SET? 


BRANCH IF 


ELSE, 
BRANC 


NO xMI 
CLEAR 


NOT 
IS THE SHORT BIT SET? 
4 IF NOT 
ELSE, RETRY ABORT AND NOT A SHORT, SET OPEN BIT 
IGNORE BYTCNT 


SSION OCCURRED, 
ALL BUT RETRY COUNT 


COUNTER IS ZERO, NO RETRIES OCCURRED 


TwO 
BUMP 2 RETRIES COUNT 


EL 
FINISH COUNTERS 


INCREMENT 3 OR MORE RETRIES COUNTER 
FINISH COUNTERS 


GET ST 
TEST E 


ATUS WORD 1 
RROR 


BIT 
BRANCH IF ERROR BIT IS SET 


075274 


010000 


000001 
0000 50 


174377 
000012 
177400 
000074 


000016 


000034 
600100 000002 


000200 000002 
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000014 


000014 


000014 


5$: 


5$: 


15%: 


10$: 


20%: 


C8 
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OMDISC ,R4 
40$ 


C.RERRC(R1) 
OMOVF ,R4 


20% 
C.RLINCR1) 


OMCRC ,R4 

35% 

oc .CRC,C.RERB(R1 
OMF RAM ,R4 

35% 

OC .FRAM,C.RERBC(R1) 
BMPE XI 

OMRUNT ,R4 

BMPMUL 

@C .RUNT,C.RERBCR1) 
BMPEXT 


LOADD( R2) 

R3 

53 
WROCNTCR2),R4 
Ra 

R4 

158 
@174377,R4 
Qo 
STAT2CR2),R2 
@¢tC377,Re 
R2,R4 


260, .R4 
R2 


#16,R4 
R3 


50$ 

C.PXMTC(R1) 
OMHIBYT, DesccR2) 
10% 

R4 

OMLOBYT ,DESC(R2) 
208 

R4 


R2 


SEQ 9% 


IS RUNT OR DISCARD SET? 
BRANCH IF NOT 


INCREMENT RECEIVE ERROR COUNT 
OVERFLOW? 

BRANCH IF NOT 

SET INTERNAL BUFFER ERROR 


CRC ERROR SET? 
BRANCH IF NOT 
SET CRC ERROR BIT 


FRAMING ERROR? 
BRANCH IF NOT 
ELSE, SET FRAMING ERROR BIT 


ExIT 


RUNT PACKET? 
BRANCH IF NOT 

SET RUNT PACKET BIT 
ExIT 


SAVE ADDRESS — BUFFER 


LOADDCR2),CRS)> 
XMIT OR RECEIVE? 
BRANCH IF RECEIVE 
GET XMITTED WORD COUNT 
COMPLEMENT IT 
TURN INTO BYTE COUNT 
CONT INUE 


EXTRACT RCV BYTE LENGTH 10:8 
SAVE THE PACKET ADDRESS 
R2.CRS)> 


MOV 
GET RCV BYTE LENGTH 7:0 
OF THE COUNT Ln HIGH BYTE 


MAKE UP FOR BYTES LOST DURING ADDRESS CHECK 
RESTORE THE - + ia). - 


SUBTRACT PROTOCOL BYTES, COUNT ONLY DATA BYTES 
SEE IF XMIT OR RECEIVE 


ve 
MENT NUMBER OF PACKETS XMITTED 
DID DATA START ON BYTE BOUNDARY? 
BRANCH IF NOT 
DECREMENT COUNT BY ONE 
DID DATA START ON BYTE SOUNDARY? 
BRANCH IF NOT 
DECREMENT COUNT BY ONE 


GET DATA BUFFER ADDRESS 
MOV CR5),RO 
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032762 
001404 
00526 


060461 


000001 


000040 
000064 


000060 


000000 


40%: 


60$: 


BMPEXI: 


D8 
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@BITOO,DESTIN(R2) 
40% 


C.MXMT(R1) 
R4,C.XMDBCR1) 


R4,C.XDATC(R1) 
BMPE XI 
R2 


C.PRECCR1) 
ee 


60 
C.MRECCR1) 
R4,C.RMOBCR1) 


R4,C.RDATCR1 ) 


SEQ 94 


MULTICAST ADORESS? 
NO IF ZERO, MOVE ON 

BUMP MULT TreasT. XMIT COUN 

ADD BYTE COUNT TO MU TICAST BYTE CNT 


ADD BYTE COUNT TO TOTAL DATA 
EXIT 


GET DATA BUFFER ADDRESS 


MOV -€RS),R2 
BUMP PACKETS RECEIVED 
MULTICAST AODRESS? 
BRANCH NOT SET 
BUMP MULTICAST RECEIVE PACKET COUNT 
BUMP MULTICAST RECEIVE BYTE COUNT 


BUMP RECEIVED DATA COUNT 


ADIOS, AVOIR, ae 
RTS PC 


075534 


2 075536 


Ie 


PETHERNET DATA PACKING ROU 


000000 
014537 


075472 


075360 
075472 
070656 


oe 
' 
' 
> 


: PSPOP SOURCE ,R4,R5 


E8 
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.SBTTL EDPACK - ETHERNET DATA PACKING ROUTINE 


see 
; FUNCTIONAL DESCRIPTION: 


EDPACK 


THIS ROUTINE WILL CONVERT A STRING OF HEX CHARACTERS INTO A RIGHT 
JUSTIFIED BINARY STREAM (WITH LEADING ZEROS), COMPATIBLE WITH 
ONVENTIONS. THE SOURCE STRING MUST BE FORMATTED USING 
EITHER A WORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE RETURNED STRING WILL BE BYTE ORIENTED AS 
REQUIRED BY THE ETHERNET 

LO-BYTE-WORDO HI-BYTE- WORDO LO-BYTE-WORD1 HI-BYTE-WORDI, ETC. 


INPUT ARGUMENTS Pi - ADDRESS OF THE SOURCE (HEX) STRING 
TO BE CONVERTED TO A BINARY STREAM. 

P2 - ADDRESS OF THE DESIRED DESTINATION 

BUFFER WHICH WILL ACCEPT BINARY DATA 

PS - raps CIN BYTES) OF THE DESTINATION 


FER 
P4 - ZERO IF SUCCESSFUL, -1 m4 BUFFER TOO 
LONG OR ODD NUMBER OF HEX CHARACTERS 
THE BUFFER AT P2 WILiL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM W/ LEADING ZEROS 
AND CORRESPONDING TO HEX STRING AT RS. 
SUBORDINATE PROCEDURES WMXFORM. (STRIP NONHEX CHARACTERS) 
HEXBIN. (HEX TO BINARY CONVERSION) 
CALLING PROCEDURE CALL _— P1,P2,.P3 
PsPOP sOUTPUT 


EXPLICIT OUTPUTS 
IMPLIED OUTPUTS 


. BLKB 74 3 


-C€RS). 


SEQ 95 


ETHERNET DATA PACK 


; INPUT P1-P3 PARAMETERS 
P4 PARAMETER 


;MAX NUMBER A * caine THAT MAY BE ENTERRED 
3R4 - rn -NUMBER OF CHARS ROD 


MOV -CRS),R4 
MOV -(R5),R3 
;SOURCE-SRC ADDRESS, ORIENT -WORD/BYTE? 
CLR R2 s;ASSUME NO ERRORS, VALUE RETURNED 
ASL R3 ;NUMBER OF CHARACTERS REQUIRED W/ “O"S 


CALL HXFORM SOURCE , &L.OCDST ,R3 


MOV @LOCDST,CRS)>+ 
MOV SOURCE , CRS )+ 
JSR R4 ,PREGI4 


WORD HXFORM-ANCHOR 


PSPOP R1,R2 


HOV 
3R2=SUCCESS/FAIL CODE (O 
TST R2 


BNE 10$ ;sRIGHT JUSTIFY BUFFER 


;R1 WILL POINT TO RIGHTMOST CHARACTER 


F8 
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- ETHERNET DATA PACKING ROUTINE 


10$: 


ASR R3 
CALL HEXBIN #LOCDST,R4,R3 


RETURN Re 


;CONVERT HEX AT LOCDST TO BINARY 
3R3 BYTES IN OUTPUT BIT STREAM 


SEQ 96 


OLOCDST ~CRS) * 
HE XBIN- ANCHOR 


sRETURN WITH SUCCESS/FAILURE INDICATION 
MOV R2,(RS)> 


RTS 


SBR? 


G8 
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075572 


075576 
075600 


000000 
014505 


014502 
014537 


010204 
063704 


112301 
142701 


001405 


075564 


177777 


10$: 
20%: 


30$: 


40$: 
50%: 


SEQ 97 


.SBTTL HXFORM - HEX FORMAT ROUTINE 


FUNCTIONAL DESCRIPTION: 
HXF ORM 
THIS ROUTINE WILL ACCEPT A HEX STRING, AND STRIP OUT 


CHARACTERS (WITHOUT FLAGG 
A NULL WILL BE LEFT AS THE 


INPUT ARGUMENTS 


EXPLICIT OUPUTS 


IMPLICIT OUTPUTS 
CALLING PROCEDURE 


. WORD 
: PS$POP 


R3,R2,HXN 


R2,R4 
HXN,R4 


CR3)+,R1 
” 


60$ 


P1- 
P2- 


P3- 
pa - 


PS - 


HEX FORMAT ROUTINE 


THE - HE x 
OR THE NON-HEX CHARACTERS). 
END OF STRING DELIMITTER. 


ADDRESS OF THE SOURCE ASCII STRING (NULL 
DELIMITTER AT END OF STRING) 

ADDRESS OF THE DESTINATION ASCII HEX STRING 
(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 

THE NUMBER OF HEX CHARACTERS DESIRED a&R4 
WILL CONTAIN THE ADDRESS OF THE LAST 
CHARACTER IN THE OUTPUT BUFFER 

THE SUCCESS/FAILURE (0/-1) INDICATOR 


THE BUFFER AT R4 WILL CONTAIN FORMATTED 
HEX CASCII) STRING. 
CALL HXFORM P1,P2,P3 


ING AN ERROR F 


PSPOP P4,P5 
sADDRESS OF SOURCE STRING 
MOV -CRS).RS 
MOV -CRS) Re 
-(€RS),HXN 


MOV 
sADDRESS OF DESTINATION STRING 
;NUMBER OF HEX CHARACTERS DESIRED 


;DESTINATION ADDRESS, R2: DESTINATION POINTER 
sPOINT TO END OF OUTPUT BUFFER (DESTINATION) 
300 WHILE NO NULL FOUND IN SOURCE STRING 

;GET BYTE IN QUESTION CE& POINT TO NEXT BYTE) 
sENSURE HI BIT IS LO (SEVEN BIT ASCIT) 

;CHECK FOR VALID HEX CHARACTER 

;THE NULL IS A VALID eng 3 (BUT THE LAST) 
3;IF GREATER THAN "O” THEN RANGE OK 

340$-OUT OF RANGE, BYTE VALUE TOO SMALL 

;IF BYTE IS LESS THAN 72 AND >=60 THEN RANGE OK 
;RANGE OK IF >=60 AND <72 ELSE. CONTINUE CHECK 
;BYTE MUST BE >=101 TO CONTINUE CHECK 

;IF BYTE >71 AND <101 THEN BYTE OUT OF RANGE. 
TE MUST BE <=106 TO BE OK, ELSE: NOT OK. 
DON'T PLACE THIS BYTE IN _* 


;BYTE IN RANGE. CONF 
;sNEXT BYTE DEST ADDRESS. IF NULL, THEN EXIT. 
;(NO ERRORS) 

;IF NOT NULL, THEN CHECK FOR BUFFER OVERFLOW. 
‘RA POINTS TO LAST CHARACTER POSITION (OUTPUT) 
;R2 - PRESENT WRITE ADDRESS 
;(SHOULD BE POSITIVE RESULT OR 0) (MORE TO DO: 
;SET ERROR CONDITION CEXIT WITH ERROR) 

;ERROR DETECTED EXIT PATH -> (TOO MANY CHARS) 


H8 
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;SUCCESSFUL EXIT PATH 
075662 005302 60$: DEC Re ;POINT TO THE LAST ACTUAL Come ren AT DEST BFR 
075664 020402 CMP R4,R2 ;CHECK FOR MINIMUN OF 12 CHARACTERS. 
075666 001572 BNE 50$ - sBRANCH IF LESS THAN 12, ERROR. 
075670 005004 CLR R4 VINDICATE SUCESS 
075672 70$: RETURN R2,R4 sADDRESS OF LAST CHARACTER (R2) rs Pa 
075672 010425 MOV 4,(R5S)- 
075674 010225 ' MOV Re. (RS)- 
075676 000207 PC 


RTS 
;ERROR INDICATOR (R4) IS PS 


075721 


075724 
075724 
075726 
075730 


014501 
014502 
014537 


075700 
075700 
075702 


075703 


075702 


075703 


T8 
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HN: 
CMPSTR: 


HEXBIN: F 


10$: 
20%: 


30$: 


HE XBIN 


SEQ 99 


HEXBIN - HEX TO BINARY CONVERSION 


HEX TO BINARY CONVERSION PROCEDURE 


THIS PROCEDURE WILL CONVERT A STRING OF HEX (ASCII) CHARACTERS 


DIRECTLY TO A BINARY STREAM, 
REQUIRE ONLY HALF AS MANY BYTES AS THE HEX 
HEX CHARACTERS ARE REQUIRED TO REPRESENT 


INPUTS 


THE DESTINATION BINARY STREAM WILL 
STRING BECAUSE Two 


A SINGLE BINARY BYTE. 


P1 - SOURCE STRING ADDRESS (DELIMITTED BY A MAL) 
P2 - DESTINATION ADDRESS FOR THE 


BINARY DATA. 


PS - THE my OF BINARY BYTES REQUIRED (HALF THE 


OUTPUTS 
IMPLIED OUTPUTS 


NUMBER OF CHARACTERS AT P1. 

NO EXPLICIT OUTPUTS 

THE BUFFER AT P2 WILL CONTAIN THE BINARY 
ae ae CONVERTED DIRECTL: FROM THE BUFFER 


SUBORDINATE PROCEDURES NONE 
CALLING PROCEDURE CALL HEXBIN P1,P2,P3 
. WORD 
-ASCIZ /0123456789ABCDEF / 
EVEN 
PSPOP R1,R2,HN :R1=SOURCE STRING ADDRESS 
MOV -(R5S),R1 
MOV -(R5),R] 
MOV -C(RS) HIN 
sR2=DESTINATION STRING ADDRESS 
;HN=NUMBER OF BYTES REQUIRED 
ADD R2 HN sHN NOW POINTS TO THE LAST _BYTE _POSITION+1 
MOV eCMPSTR,R4 sPOINTER IN THE COMPARE STRING 
CMPB (R1),CR4)- ;COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 
BNE 203 ;REPEAT UNTIL CHARACTER FOUND IN LIST 
INC Ri sPOINT TO THE NEXT ASCII BrTE 
SUB OCMPSTR+1,R4 3;R4 NOW CONTAINS THE ACTUAL BINARY VALUE FOR 
;THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 
;NOTE: NIBBLE IS THE HI PORTION OF THE BYTE 
ASL R4 ;MOVE NIBBLE TO THE HI END OF THE BYTE 
ASL RG 
ASL R4 
ASL RG 
MOV R4,R3 ;SAVE THE HI NIBBLE 
MOV OCMPSTR,R4 sPOINTER INTO COMPARE STRING 
CMPB (R1), (R4)- ;COMPARE CURRENT CHAR WITH A CHAR IN CMPSTR 
BNE i ;REPEAT UNTIL MATCH FOUND IN CMPSTR LIST 
INC sPOINT TO THE NEXT ASCII BYTE 
SUB @CHPSTR+1,R4 ;R4 NOW CONTAINS THE ACT BINARY VALVE FOR 


VAL 
;THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 
;sNOTE: NIBBLE IS THE HI PORTION OF THE BrTé 


J8 
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HEXBIN - HEX TO BINARY CONVERSION 
4569 076006 050403 BIS R4,R5 ;NOW THE TWO CHARACTERS HAVE MADE A SINGLE BrTE 
4570 ;NOW PLACE THE COMPLETE BYTE IN THE DESTINATION 
4571 076010 110322 MOVB R3,(R2)> ;AND POINT TO THE NEXT DESTINATION BrTE 
4572 076012 020257 075700 CMP R2,HN VIF THE DESTINATION POINTER [R2) dies aie THE 
4573 076016 100750 BMI 10$ sLAST CHARACTER os [HN] THEN DONE. 
4574 076020 RE TURN ;sRETURN TO CALLER 


076020 000207 RTS PC 


BYNHE x BINARY 


076022 
076025 


18 nek Pony 


DIAG MACRO M1200 
PESTON PROCEDURE 
ge-e 
: 
; 
; 
3 
: 
: 
3 
: 
; 
; 
3 
: 
3 
3 
5. ee 
061 062 HEXC 
064 065 
067 070 
101 102 
104 105 
LST: 
BINHEX: 
076042 
076042 
10$: 
177760 
177760 
076022 
076022 
55 
076042 


. SBTTL 
BINHE X 


THIS PROCEDURE 


INPUTS 


K8 


22-MAR-84 13:12 PAGE 30 


SEQ 101 


BINHEX - BINARY TO HEX CONVERSION PROCEDURE 


«§ in 


BINARY TO HEX CONVERSION PROCEDURE 


WILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 
BINARY DATA BUFFER ADDRESS 


P2- NUMBER OF BYTES IN THE BUFFER 


p3- 


ADDRESS OF OUTPUT BUFFER FOR HEX STRING. 


HEX CHARACTER PAIRS SEPERATED BY “-"'S 
(NOTE: THIS BUFFER MUST BE AT LEAST 3eP2 BYTES LONG) 


OUTPUTS - NONE 
IMPLICIT OUTPUTS 


SUBORDINATE ROUTINES 
CALLING PROCEDURE 


-ASCII /0123456789ABCDEF / 


. WORD 
PsPOP 


R1,LST,Re 


R1,LST 
CR1i)+,RS 


R3,R4 
#177760,R5 

R4 

R4 

R4 

R4 

177760,R4 
HEXCCR4),CR2)> 


HEXCCRS),CR2)+ 
e' -,C(R2)+ 


THE BUFFER AT P3 WILL CONTAIN THE HEX STRING 
FOLLOWED BY A NULL CHARACTER. 


NONE 
CALL BINHEX P1,P2,P3 


;R1 HAS THE INPUT BUFFER ADDRESS 
MOV -(RS).R1 


MOV -CRS),R2 
3LST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
;R2 HAS THE OUTPUT BUFFER ADDRESS 
;LST 7. NOW ADDRESS OF LAST SOURCE BYTE + 1 
;GET THE CURRENT BYTE AND POINT TO NEXT BYTE 
| SEPARATE NIBBLES AND GET CHARACTERS SEPARATELY 
sONLY RIGHT BINARY NIBBLE REMAINS IN RS 
;SHIFT OVER FOR LEFT BINARY NIBBLE IN R4 


;ONLY LEFT BSINARY NIBBLE REMAINS IN R4 

sR4 IS THE MOST SIGNIFICANT NIBBLE (FIRST) 

3R3 IS THE LEAST SIGNIFICANT NIBBLE (SECOND) 
;PUT THE ASCII BYTE INTO THE BUFFER HI POSITION 
;PUT THE ASCII BYTE INTO THE BUFFER LO POSITION 
;PUT - BETWEEN HEX PAIRS 

sRESULT IS NEGATIVE UNTIL Ri=LST 

;UNTIL RieLST. C TRANSFER ALL —, BYTES) 
; TERMINATE OUTPUT BUFFER WITH A NUL 


RTS PC 


L& 
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BLOLD - BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT. 
pra Hd . SBTTL BLOLD - BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT. 
1 t--+ 
4619 ; FUNCTIONAL Se ae 
4620 ; THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
4621 : FROM THE QNA. SOURCE ADDRESS, DESTINATION ADDRESS, 
4622 : PROT. TYPE, AND LOOP DIRECT HEADER INFO ARE ADDED 
4623 ; TO THE MESSAGE BUFFER. THE MESSAGE BUFFER IS BUILT 
per 3 BY A CALL TO BLOBUF. 
46 : 
4626 ; INPUTS - Pi - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
4627 : IMPLICIT - aaeet CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
4628 ; XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
pe 3 PHYADR HOLDS THE CURRENT LOCAL QNA PHYSICAL ADDRESS 
& 
Pees ; OUTPUTS - BUILT MESSAGE PACKET. 
4632 ; 
ahs ; CALLING PROCEDURE - CALL BLOLD P1 
+ 
4635 ; SIDE EFFECTS - THE MESSAGE PACKET IS BUILD AND CONTAINED IN THE 
46356 F BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS ENTERED. 
pe ; XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 
46 ; 
4639 ; REGISTER USAGE - Ri HOLDS ADDRESS OF DESTINATION ADDRESS 
4640 3 R2 IS A POINTER FOR THE LOOP DIRECT HEADER INFO 
4641 3 R3 HOLDS THE PACKET LENGTH 
onat : R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 
: 
4644 t--¢ 
4645 076132 BLOLO: : 
4646 076132 PS$POP R1 ; PUT ADDRESS OF DEST. ADDRESS IN R1 
76132 014501 MOV -(R5),R1 
4647 076134 013704 024224 MOV Te ; MOVE NEXT PACKET ADDRESS TO R4 
4648 076140 016404 000004 MOV LOADDC(R4) ,R4 ; POINT R4& TO DATA BLOCK 
4649 076144 013703 002374 MOV P$SIZE, ; PUT MESSAGE SIZE INTO RS 
4650 076150 062703 000040 ADD 40 ,,R3 ; ADD HEADER AND LOOP DIRECT INFO TO LENGTH 
4651 076154 010337 050324 MOV R3,XFER ; PUT BYTES TRANSFERED INTO WORD 
4652 076160 162737 000016 050324 SUB #16,XFER ; AND CORRECT FOR 
4653 076166 022703 001100 CMP EN.RS ; SEE IF LONGER THAN ONE PACKET 
4654 076172 002474 , BLT 10$ ; IF YES, ERROR 
4655 076174 010337 050332 MOV R2,BUFLEN ; PuT PACKET LENGTH IN BUFLEN 
4656 076200 012164 000000 MOV CR1)+ DESTINCR4 ) ; MOVE FIRST TWO BYTES OF ADDRESS 
4657 076204 012164 000002 MOV CR1)+ .DESTIN+2(R4 ) ; MOVE BYTES THREE AND FOUR 
4658 076210 011164 G00004 MOV (RL), DESTIN+4(R4) ; MOVE BYTES FIVE AND SIX 
4659 076214 005064 000006 CLR SOURCCCR4 ) ; LEAVE BLANK SPACE FOR SOURCE ADDRESS 
4660 076220 005064 000010 CLR + ne pet aed 3 SIX BYTES WORTH 
4661 076224 005064 000012 CLR SOURCC +4(R4) 
4662 076230 013764 050306 000014 MOV PROTOO,PROTOTCR4) ; MOVE PROTOCALL TYPE INTO HEADER 
4663 076236 012702 050346 MOV @LOPDIR, R2 ; MOVE LOOPOIRECT FORMAT HEADER LOC. TO Re 
4664 076242 012264 000016 MOV CR2)+ , LOSKIPCR4 ) ; SKIP COUNT 
4665 076246 011264 000020 MOV (R2), LDFCTICR4 ) ; FUNCTION CODE CFORWARD) 
076252 013764 004010 000022 MOV PHYADR ,LDADR1(R4 ) ; LOCAL NODE ADDRESS 
4667 076260 013764 004012 000024 MOV PHYADR+2,LDADR1+2(R4) 3 SIX BYTES 
4668 076266 013764 004014 000026 MOV PHYADR +4 ,LDADR1+4(R4 ) : 
4669 076274 016264 000010 000030 MOV 10(R2),LDOFCT2CR4) ; FUNCTION CODE CREPLY) 
4670 076302 013764 004010 000032 MOV PHYADR ,LDADR2(R4 ) ; LOCAL NODE ADDRESS 
4671 076310 013764 004012 000034 MOV PHYADR+2,LDADR2+2(R4) ; SIX BYTES 
4672 076316 013764 004014 000036 MOV PHYADR +4 ,LDADR2+4(R4 ) ; 
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4673 
4674 
4675 


0 
4676 
0 


0 
4679 


076324 
076330 
076334 

34 


076374 


062704 
010437 


000040 
050334 
070656 


024224 


000000 
070656 


MOV R4 , CMPBUF 
CALL BLOBUF R4 
CALL GETXNX #0, @XRGNXT 
BR 20$ 
20$: RETURN 


SEQ 103 


POINT R4 TO FIRST DATA BYTE 
STORE BUFFER Ts aan FOR DATA COMPARE 


BUILD DATA BUFFE 


JSR a4 14 
UPDATE POINTER TO NEXT RING ENTRY 
MOV 0 ,(RS)> 
MOV 00, (RS)+ 
JSR R4,PREGI4 
= “WORD GETXNX-ANCHOR 
MESSAGE SIZE TOO BIG 
TRAP $CSEROF 
WORD 14 
.WORD €&MSG14 
-WORD ERR 
RTS PC 
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SEQ 104 


Print. . SBTTL BLOFAS - BUILD PACKET FOR FULL ASSIST TRANSMISSION 
t--¢ 
4683 ; FUNCTIONAL meee + 
4684 : THIS SUBROUTINE BUILDS FULL ASSIST PACKETS FOR TRANSMISSION 
4685 : FROM THE QNA. SOURCE ADDRESS, DESTINATION ADDRESS, PROT. —e 
4686 ; AND FULL ASSIST HEADER INFO ARE ADDED TO THE MESSAGE BUFFER 
per Hf ; THE MESSAGE BUFFER IS BUILT BY A CALL TO BLOBUF. 
; 
4689 ; INPUTS - Pi - THE ADDRESS OF THE DESTINATION ADDRESS CFROM NODE TABLE) 
4690 : IMPLICIT - P$SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
4691 . XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
— : PHYADR HOLDS THE CURRENT LOCAL NODE ADDRESS 
6 F 
aan ; OUTPUTS - THE BUILT BUFFER 
; 
aaet ; CALLING PROCEDURE - CA.L BLDFAS P1 
: 
aaat ; SIDE EFFECTS - XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 
; 
4700 ; REGISTER USAGE - R1 HOLDS ADDRESS OF TARGET NODE ADDRESS 
4701 : R2 HOLDS ADDRESS OF ASSIST NODE ADDRESS 
4702 : R3 HOLDS THE PACKET LENGTH 
<a : R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 
; 
4705 3--¢ 
4706 076376 BLOFAS:: 
4707 076376 FP $POP R1,Re2 ; PUT ADDRESS OF TARGET as a INTO R1 
076376 014501 MOV -(R5).R 
076400 014502 MOV -CRS), RO 
4708 ; AND ADDRESS OF ASSIST ADDRESS INTO R2 
4709 076402 013704 024224 MOV XRGNXT ,R4 ; MOVE NEXT PACKET ADDRESS TO R 
4710 076406 6404 000004 MOV LOADDC(R4) ,R4 ; POINT R& TO DATA BLOCK 
4711 076412 013703 002374 MOV P$SIZE.R3 ; PUT MESSAGE SIZE INTO R35 
4712 076416 703 000060 ADD »R3 ; ADD HEADER INFO TO LENGTH 
4713 076422 010337 050324 MOV R3,XFER ; PUT ‘BYTES TRANSFERED’ INTO WORD 
4714 076426 162737 000016 050324 SUB 916,XFER ; AND CORRECT FOR HEADER 
4715 076434 022703 001100 CMP #XPKLEN,RS3S ; SEE IF LONGER THAN ONE PACKET 
4716 076440 BLT 10$ ; IF YES, ERROR 
4717 076442 010337 050332 MOV R3,BUFLEN 3 PuT PACKET LENGTH IN BUFLEN 
4718 076446 011264 000000 MOV CR2) .DESTINCR4 ) ; MOVE FIRST TWO BYTES OF ADDRESS 
4719 076452 016264 000002 000002 MOV 2CR2) .DESTIN+2°R4) ; MOVE BYTES THREE AND FOUR 
4720 076460 016264 000004 000004 MOV 4(R2) .DESTIN+4(R4) ; MuvE BYTES FIVE AND SIx 
4721 076466 005064 CLR SOURCC(R4) ; LEAVE BLANK SPACE FOR SOURCE ADDRESS 
4722 076472 005064 000010 CLR SOURCC +2(R4) ; SIX BYTES WORTH 
4723 076476 005064 000012 CLR SOURCC +4(R 
4724 076502 013764 050306 000014 MOV PROTOO ,PROTOTCR4 ) : ie PROTOCALL TYPE INTO HEADER 
4725 076510 012764 000000 000016 MOV #0 ,,FASKIPCR4 ; SKIP COUNT 
4726 076516 012764 000002 000020 MOV #2, FAFCTICR4) ; FUNCTION CODE CFORWARD) 
4727 076524 011164 000022 MOV CR1),FAADRICR4) ; TARGET NODE ADDRESS 
4728 076530 016164 000002 000024 MOV 2€R1),FAADR1+2°R4) : SIX BYTES 
4729 076536 016164 000004 000026 MOV 4(R1),FAADR1+4(R4) ; 
4730 076544 012764 00000 000030 MOV $2 ,FAFCT2CR4) ; FUNCTION CODE CFORWARD) 
4731 076552 011264 000032 MOV CR2),FAADR2CR4 ) ; ASSIST NODE ADDRESS 
4732 076556 016264 000002 000034 MOV 2(R2), FAADR2+2(R4 ) 3 SIX BYTES 
4733 076564 016264 000004 000056 MOV 4(R2), FAADR2+4(R4) ; 
4734 076572 012764 000002 000040 MOV #2, FAFCT3CR4) : FUNCTION CODE (FORWARD) 
4735 07 013764 004010 000042 MOV PHYADR ,F AADR3(R4 ) ; LOCAL NODE ADDRESS 


b9 


CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 15:12 PAGE 32-1 SEQ 105 
BLOFAS - BVILD PACKET FOR FULL ASSIST TRANSMISSION 

4736 076606 0135764 004012 MOV PHYADR+2,F AADRS+2(R4 ) ; SIx BYTES 

4737 076614 015764 004014 MOV PHYADR +4 ,F AADRS+4(R4 ) ‘ 

4738 076622 012764 9000001 MOV 01,FAFCT4(R4) s FUNCTION CODE (REPLY) 

4739 076630 0135764 004010 MOV PHYADR .F AADR4(R4 ) s LOCAL NODE ADDRESS 

4740 076636 015764 004012 MOV PHYADR +2, F AADR4 + 2(R4 ) ’ SIX BYTES 

4741 076644 015764 004014 MOV PHYADR +4 ,F AADR4 + 4(R4 ) ’ 

4742 076652 7 ADD OF AADR4 +6 ,R4 s POINT R4 TO FIRST DATA BYTE 

4743 076656 010437 050554 MOV R4 , CMPBUF ; STORE BUFFER LOCATION FOR DATA COMPARE 

4744 076662 CALL BLOBUF R4 s BUILD DATA BUFFER 
076662 010425 MOV R4,(RS)> 
076664 004437 070656 JSR R4 ,PREG14 
076670 006756 «WORD BLOBUF -ANCHOR 

4745 076672 CALL GETXNX @0, @XRGNXT s UPDATE POINTER TO NEXT RING ENTRY 

76672 012725 024224 MOV OXRGNXT (RS )-> 
076676 012725 000000 MOV 00,(RS)- 
076702 004437 070656 JSR R4 ,PREGI4 
76706 006534 -WORD GETXNX-ANCHOR 

4746 076710 000404 BR 208 3 EXIT 

4747 076712 108: ERROF  29,EMSG14,ERR1 s MESSAGE SIZE TOO BIG 
076712 104455 TRAP CSEROF 
076714 35 -WORD 29 
076716 063774 -WORD EMSG14 
076720 070206 -WORD ERRI 

4748 076722 208: RE TURN 
076722 000207 RTS PC 
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4750 “SBTTL BLDAST - BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 
47 + 
4? : FUNCTIONAL DESCRIPTION: 

4753 : 

4754 : THIS ROUTINE BUILDS RECEIVE ASSIST PACKETS 

3 

4756 076724 BLDAST:: 

4757 076724 PSPOP R12 | PUT DESTINATION ADDRESS INTO Ai 
076724 014501 MOV -(RS)—R 
076726 014502 MOV CRS) Re 

4758 ; ASSIST ADDRESS INTO R2 

4759 076730 013704 024224 MOV XRGNXT,R4 | MOVE NEXT PACKET ADORESS TO R4 

4760 076734 016404 000004 MOV LOADD(R4),R4 ; POINT R4 TO DATA BLOCK 

4761 076740 013703 002374 MOV PSSIZE,R3 ; PUT MESSAGE SIZE INTO R3 

4762 076744 062703 000050 ADD @50,R3 ; ADD HEADER INFO INTO LENGTH 

4763 076750 010337 050324 MOV R3, XFER ; PUT ‘BYTES TRANSFERED’ INTO WORD 

4764 076754 162737 000016 050324 SUB 016, XFER ; AND CORRECT FOR HEADER 

4765 076762 022703 001100 CHP @XPKLEN,R3 i SEE IF LONGER THAN ONE PACKET 

4766 076766 002511 BLT 108 ; IF YES, ERROR 

4767 076770 010337 050332 MOV R3,BUFLEN + BUT PACKET LENGTH INTO BUFLEN 

4768 076774 011164 000000 MOV (Ri), DESTINCR4) ; MOVE DESTINATION ADDRESS INTO HEADER 

4769 077000 016164 000002 000002 MOV 2(R1),DESTIN+2(R4) ; 6SIX BYTES WORTH 

4770 077006 016164 000004 000004 MOV 4(R1).DESTIN+4(R4) 

4771 077014 005064 000006 CLR SOURCC(R4 ) ; LEAVE BLANK SPACE FOR SOURCE ADDRESS 

4772 077020 005064 000010 CLR SOURCE +2¢ RA > ; SIX BYTES WORTH 

4778 077024 005064 000012 CLR SOURCC +4 

4774 077030 013764 050306 000014 MOV PROTOO, PROTOTCRA) ; MOVE PROTOCALL TYPE INTO HEADER 

4775 077036 012764 000000 000016 MOV 00, FASKIP(R4) ; SKIP COUNT 

4776 077044 012764 000002 000020 MOV 02-FAFCTICR4) ; FUNCTION CODE (FORWARD) 

4777 077052 011264 000022 MOV (R2), FAADRI(R4) ; TARGET NODE ADORESS 

4778 077056 016264 000002 000024 MOV 2(R2),FAADR1+2(R4) ; SIX BYTES 

4779 077064 016264 000004 000026 MOV 4(R2).FAADR1+4(R4) 

4780 077072 012764 000002 000030 MOV 02, FAFCT2(R4) ; FUNCTION CODE (FORWARD) 

4781 077100 013764 004010 000032 HOV PHYADR. FAADR2(R4) ; LOCAL NODE ADDRESS 

4782 077106 013764 004012 000034 MOV PHYADR:2.FAADR2+2(R4) ; SIX BYTES WORTH 

4783 077114 013764 004014 000036 HOV PHYADR+4.FAADR2+4(R4) 

4784 077122 012764 000001 000040 MOV @1,FAFCTS(R4) ; FUNCTION CODE (REPLY) 

4785 077130 013764 004010 000042 MOV PHYADR .FAADR3(R4) ; LOCAL NODE ADDRESS 

4786 077136 013764 004012 000044 MOV PHYADR+2,FAADR3+2(R4) 

4787 077144 013764 004014 000046 MOV PHYADR+4.FAADRS+4(R4) 

4788 077152 062704 000050 ADD OF AADR3 +6 ,R4 ; POINT R4 TO FIRST DATA BYTE 

4789 077156 010437 050334 MOV R4, CHPBUF ; STORE BUFFER LOCATION FOR DATA COMPARE 

4790 077162 CALL ®8LOBUF R4 ; BUILD DATA BUFFER 
077162 010425 MOV R4,(RS)> 
077164 004437 070656 JSR Ra PREGI4 


077170 006756 .WORD BLDBUF -ANCHOR 
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4791 


4792 
4793 


4794 


077172 
077172 


077222 


024224 
000000 
070656 


10$: 


20%: 


CALL 


BR 
ERRDF 


RE TURN 


GE TXNX 


00, @XRGNXT 


20s 
36,EMSG14,ERR1 


+ UPDATE RING POINTER 
MOV 
MOV 


JSR 
. WORD 


s MESSAGE SIZE TCO BIG ERROR 
TRAP 


RTS 


SEQ 107 

00, R * 
R4 ,PREG14 
GE TXNX - ANCHOR 

C SERDF 
-WORD 36 
«WORD EMSG14 
-WORD ERR1 
Pc 
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4836 


077224 


024224 
000004 


024224 
000000 
070656 


050332 


000014 


-~-¢+ 


oe 
' 
‘ 

° 


BLOREQ: : 


. SBTTL 


INPUTS - 
OUTPUTS - 


RE TURN 


SEQ 106 


BLOREQ - BUILD REQUEST ID PACKETS FOR TRANSMIT 


2 

; FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
THE OURCE ADDRE 


FROM 


QNA. S 
PROTOCALL TYPE, SEQUENC 


SS, DESTINATION ADDRESS, 
R AND REQUEST ID 


E 
HEADER INFOR ARE BUILT IN THIS SUBROUTI 
IMPLICIT - THE DESTINATION ADDRESS IS CONTAINED IN ADRBUF . 


BUILT MESSAGE PACKET 
CALLING PROCEDURE - CALL BLOREQ 


SIDE EFFECTS - THE MESSAGE PACKET IS BUILT AND CONTAINED IN THE 
BUFFER POINTED TO BY xX 


ENTERED. 


WHEN THE ROUTINE 


XRGNXT WAS 
XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY. 
REGISTER USAGE - R1 HOLDS ADDRESS OF DESTINATION ADDRESS 


R2 IS A POINTER FOR REQUEST ID HEADER INFO. 
R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER. 


XRGNXT ,R4 
LOADDC(R4 ),R4 
#100 ,.BUFLEN 


@ADRBUF ,R1 

(R1)+, DESTINCR4 ) 
CR1)+ .DESTIN+2(R4 ) 
CR1), DESTIN+4(R4) 
SOURCC(R4 ) 


SOURCC + 2(R4 ) 
SOURCC +4(R4 ) 
PROTO2, ee 
@REQIO,R 

(R2)+ ,HEADERCRS ) 
(R2)+, HEADER +2(R4 ) 
(R2) , HEADER +4(R4 ) 
GETXNX 00, @XRGNXT 


MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 

MOVE BUFFER SIZE TO BUFLEN 

MOVE ADDRESS OF DEST. ADR. TO R1 
MOVE FIRST TWO BvTe OF DEST. ADR. 
AND BYTES THREE AND FOUR 


SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTC HEADER 
MOVE REQUEST ID HEADER LOC. TO R2 
BYTE COUNT 

Any CODE (REQUEST ID) 


RECEIPT NO. 
UPDATE POINTER TO NEXT RING ENTRY 
MOV @XRGNXT 


»CRS)> 
MOV 20,(R5)> 
JSR R4,PREG14 
-WORD GETXNX-ANCHOR 


RTS PC 


013701 
013702 


014505 
001431 


013703 


010157 
000405 


014503 
013701 
013702 


024234 


024214 
024230 


000014 
024226 


024226 
000014 


024234 


<6 


at 


10$: 


GETXNX:: 


GE TCOM: 


INPUTS - 


OUTPUTS - 


ry 


Ne OEP NRT TRANSATT BA RECEIVE RIRG ENTRY O* 5:1 PAGE SS 


. SBTTL 


SEQ 109 


GET?NX - GET NEXT TRANSMIT OR RECEIVE RING ENTRY 


FUNCTIONAL DESCRIPTION 


THIS SUBROUTINE GETS THE NEXT TRANSMIT OR RECEIVE RING 


ENTRY. 


WHICH RING IS BEING USE 


P1 - FLAG INDICATING IF THE PREVIOUS DESCRIPTOR NEEDS REVALIDATING 
P2 - THE ADDRESS OF THE RING POINTER TO BE UPDATED. 


ay Sag POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 
Te 


CALLING PROCEDURE - CALL GETXNX 
CALL GETRNX 


SIDE EFFECTS - NONE 
REGISTER USAGE - os POINTS TO THE FIRST ENTRY IN THE RING 


oP1,oP2 
oP1,eP2 


IT IS ENTERED on SEPERATE POINTS DEPENDING ON 


s FOR TRANSMIT UPDATES 
; FOR RECEIVE UPDATES 


2 POINTS TO THE LAST ENTRY IN THE RING 


R3 IS 


RRGSRT ,R1 
RRGLST,R2 
RS 


GE TCOM 


RRGPRY ,RS 
FLAGCRS) 
STATICRS) 
STAT2CRS) 
——— 


XRGSRT ,R1 
XRGLST,R2 


RS 

(R3),R2 
10% 

#12. ,(R3) 
R3, ORRGNXT 
20% 


ORRGNXT ,R4 
#14 ,R4 


THE ADDRESS OF THE RING POINTER TO BE UPDATED 


MOVE FIRST RING ENTRY TO R1 
MOVE LAST RING ENTRY TO R2 
SHOULD WE VALIDATE eet 4 —_ 


MOV -CRS 
BRANCH IF NOT 
ELSE, GET PREVIOUS DESCRIPTOR 
REINIT THE FLAG 


L 
REINIT THE STATUS 
REINIT STATUS 2 
VALIDATE IT 
IS THIS THE LAST DATA DESCRIPTOR? 
BRANCH IF YE 
ELSE UPDATE PREVIOUS POINTER 
AND DO COMMON STUFF 


LAST ENTRY, POINT TO START OF LIST 
GO TO COMMON MODE 


THROW AWAY FIRST PARAMETER 
MOV -(R5), R35 

MOVE FIRST RING ENTRY TO R1 

MOVE LAST RING ENTRY TO Re 


GET ADDRESS OF RING POINTER IN R35 


MOV -(R5),R3 
SEE IF POINTER POINTS TO LAST RING 
IF YES, BRANCH 
ELSE, ADD ENTRY LENGTH TO POINTER 
IS THIS THE NEXT RECEIVE POINTER? 
BRANCH IF NOT 
ELSE GET NEXT RING DESCRIPTOR 
POINT TO NEXT DESCRIPTOR 
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GET?NX - GET NEXT TRANSMIT OR RECEIVE RING ENTRY 


077472 


000000 
000441 


022713 
001002 
005237 


010113 
022703 


000002 


000014 
024226 


024222 
050336 


024226 
050336 


024222 
050336 


024226 
024226 
000014 
000002 
000014 


024226 


024226 


024226 


024226 


10$: 


12$: 


18%: 


DESC(R4 ) 
S$ 

S$ 

014 ,RRGNXT 
ORRGNXT 
RNXPRV 
RRGCUR , RRGNXT 
20$ 

LAPCNT 

20% 
63,EMSG63 


20$ 
@RRGNXT , CRS) 
12s 

LAPCNT 


i2s 
63,EMSG63 


@RRGCUR , CR3) 
183 

LAPCNT 

R1.CR3) 
ORNGNX 


20; 
ORRGNXT ,.R4 
14 ,R4 
DESCC(R4 ) 
20$ 

20% 

#14 ,RRGNXT 
@RRGNXT 


RNXPRV 


SEQ 110 


IS IT A THROW AWAY? 
BRANCH IF STILL VALID 
BRANCH IF IT IS NOT A THROWAWAY 

ELSE THROW IT AWAY 

PUT THE ADDRESS BACK ONTO THE PARAMETER STACK 


MOV T,CRS)-> 
AND UPDATE RECEVE RING POINTERS AGAIN 
DID NEXT POINTER PASS BY CURRENT POINTER? 


IF NO, THEN EXIT 
ELSE, IS CURRENT POINTER A LAP(S) AHEAD? 


IF YES, THEN EXIT 

ELSE, REPORT ERROR 
TRAP CSERHRD 
-WORD 63 
-WORD EMSG63 
-WORD O 


EXIT 


Is os pe “NEXT RECEIVE DESCR” POINTER? 
BRANCH IF NOT 

ELSE, DECREMENT Ley LAPCOUN 
BRANCH IF DESCR” POINTER = ad PASSED 


T RCV 
PRINT NEXT POINTER PASSED BY CURRENT PONTER” 
TRAP CSERHRD 
TWORD 63 
-WORD EMSG65 
-WORD 0O 


IS THIS THE “CURRENT RCV DESC” POINTER? 
BRANCH IF NOT 

ELSE, INCREMENT THE LAP COUNTER 

POINT POINTER TO FIRST ENTRY IN RING 
IS THIS THE NEXT RECEIVE POINTER? 
BRANCH IF NOT 


GET NEXT RING DESCRIPTOR 
POINT TO NEXT DESCRIPTOR 


IT AWAY 
PUT ADDRESS BACK ONTO PARAMETER STACK 
MOV @RRGNXT CRS) - 
GO UPDATE POINTERS AGAIN 


RTS PC 
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BLOBUF - BUILD MESSAGE BUFFERS 

= . SBTTL BLOBUF - BUILD MESSAGE BUFFERS 

4931 


t--¢ 
FUNCTIONAL DESCRIPTION 
THIS SUBROUTINE CREATES A MESSAGE BUFFER TO BE USED 


> 
ro 
Ww 
tv 


4935 ; 
pe : FOR TRANSMISSION. 
4935 ; 
4936 ; INPUTS - P1 - BUFFER LOCATION TO PUT BUILT MESSAGE 
4937 3 IMPLICIT - P$SIZE CONTAINS THE SIZE THE BUFFER IS TO BE 
4938 3 PSTYPE CONTAINS THE MESSAGE TYPE 
4939 ; OUTPUTS - IMPLICIT - BUFFER STARTING AT LOCATION P1 CONTAINS A 
4940 ; MESSAGE PSSIZE BYTES LONG USING THE MESSAGE 
4941 ; TYPE SPECIFIED BY PSTYPE. 
494e : 
pee ; CALLING PROCEEDURE - CALL BLOBUF P1 
: 
oan ; SIDE EFFECTS - NONE 
: 
4947 ; REGISTER USAGE - R1 POINTS TO THE NEXT BYTE OF STORED MESSAGE TO BE BUILT 
4948 : IN THE MESSAGE BUFFER. 
4949 : R2 = (MESSAGE TYPE X 2), USED AS OFFSET FOR POINTERS 
4950 3 R3 POINTS TO THE NEXT BYTE OF THE BUFFER UNDER CONSTRUCTION 
amt ; R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 
4a 3 
4953 ,--0 
4954 077652 BLOBUF : : 
4955 077652 PsPOP R3 ; PUT BUFFER ADDRESS INTO R35 
077652 014503 MOV -€R5),R 
4956 077654 013702 002372 MOV PSTYPE,R2 ; PUT MESSAGE TYPE INTO Re 
4957 077660 006302 ASL R2 ; MULTIPLY BY 2 
4958 077662 013704 002374 MOV PSSIZE,R4 ; PUT SIZE INTO R4 
4959 077666 060304 ADD R3, ; MAKE R4 = LAST BYTE OF BUFFER 
4960 077670 016201 003360 MOV MSGAD(R2),R1 ; POINT R1 TO Ae BYTE OF STORED MESSAGE 
4961 077674 005037 050304 CLR COUNT ; CLEAR BYTE COUNTER 
4962 077700 005237 050304 10$: INC COUNT ; COUNT NO. OF BYTES COPIED 
4963 077704 112123 “OvVB CR1i)>,CR3)- ; PUT BYTE IN BUFFER 
4964 077706 026237 003342 050304 CMP MSGCNTC(R2), COUNT ; ARE WE AT END OF STORED MESSAGE 
4965 077714 001004 BNE 203% ; IF NO, CHECK IF DONE 
4966 077716 016201 003360 MOV MSGAD(R2).R1 ; ELSE, POINT ss = BEGINING 
4967 077722 005037 050304 CLR COUNT 3; AND CLEAR COUN 
4968 077726 020304 20%: CMP R3,R4 :; IS BUFFER FICLED? 
4969 077730 001363 BNE 10$ ; IF NO, LOOP 
4970 077732 RE TURN ; ELSE, RETURN 


077732 000207 RTS PC 


syyane° OF ane 


4972 
4975 


077740 


077742 
077744 


013746 


050314 


050314 
000005 


067602 
000004 
000012 


000000 


050314 


050314 


050314 
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. SBTTL 
FUNCTIONAL DESCRIPTION 


INPUTS - 


OUTPUTS - 


PsPOP 


10$: 


20%: 


BEQ 


SIDE EFFECTS 
REGISTER USAGE - R1 CONTAINS THE COMPARE S 


19 


SEQ ile 


DATCMP - COMPARE DATA BUFFERS 


THIS SUBROUTINE COMPARES TWO DATA BUFFERS BYTE BY BrTeE. 
IF COMPARISON ERRORS OCCURED, LOCA 
AND RECEIVED DATA ARE PRINTED OUT FOR THE 
ERRORS. THE TOTAL NUMBER OF ERRORS IS ALSO PRINTED. 


P1 - THE SIZE CIN BYTES) OF THE BUFFER TO BE COMPARED 


P2 - THE ADDRESS OF BUFFER TO COMPARE OTHER BUFFER AGAINST. 
P3 - THE ADDRESS OF THE SECOND BUFFER. 
P4 - THE NUMBER OF COMPARISON ERRORS. 


CALLING PROCEDURE - CALL DATCMP -1,P2,P5 
PsPOP P4 


- NONE. 


IZE 
R2 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 1 
R3 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN BUFFER 2 
R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 


R1,R2,R3 ; PUT COMPARE SIZE IN R1 
MOV -(RS),R1 
MOV -CRS),R2 
MOV -(RS),RS 
; BUFFER 1 ADDRESS IN Re AND 
; BUFFER 2 ADDRESS IN R35 
Ha ; INITIALIZE BYTE OFFSET 
TEMP ; AND ERROR COUNTER 
R4 ; INCREMENT OFFSET COUNTER 
CR2),CR3) ; COMPARE BUFFERS 
20$ ; If SAME, BRANCH 
TEMP ; INCREMENT ERROR COUNTER 
#5, TEMP 3 IF MORE THAN 5S ERRORS, 
20% ; DON'T PRINT MESSAGE 
&CMPER1 .R4,(R2),(R3) ; PRINT ERROR MESSAGE 
MOV CR3),-CSP) 
MOV CR2),-CSP) 
MOV R44, -CSP) 
MOV @CMPER1, -( SP) 
MOV o4. -€ SP) 
MOV SP RO 
TRAP CSPNTX 
ADO @12,SP 
R2 ; INCREMENT BUFFER 1 POINTER 
R3 ; INCREMENT BUFFER 2 POINTER 
R1 ; DECREMENT COMPARE SIZE 
10$ ; If NOT FINISHED, GO BACK FOR MORE 
ate ; WERE THERE ANY ERRORS? 
; IF NO, EXIT 
PRINTX OCMPER?, TEMP 
MOV TEMP, SP?) 
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- COMPARE DATA BUFFERS 


DATCMP 


5017 


067677 
000002 


000006 
050314 


30$: 


RE TURN 


TEMP 


JI 


SEQ 113 
MOV OCMPER2, -( SP) 
MOV @2, -(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADO 06 , SP 
; RETURN WITH ERROR COUNT ON STACK 
MOV TEMP ,,CRS)-> 


RTS 


PC 


KY 
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WRITES 


014557 


050314 
050314 


002714 


177777 


070656 


000026 


000002 000002 
000004 


000004 


- WRITE DATA ONTO SUMMARY T 


000001 


. SBTTL 


INPUTS - 


OUTPUTS - 


-~-¢ 


WRITES: PSPOP 


10$: 


20$: 
30$: 


40$: 


WRITES - WRITE DATA ONTO SUMMARY TABLE 
“FUNCTIONAL at A 


THIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 


THE NODES SPECIFIED IN THE CALL STATEMENT. 
oe TWO NODES CAN UPDATED PER CALL. 


HE SUMMARY DATA COUNTERS ARE CLEARED. 
Is; CHECKED FOR A MATCHING NODE ADDRESS AND UPDATES THE 


DATE FOR THAT NODE, 
DOESN'T EXIT. 


IS REACHED. 


OR ADOS 


THE SUMMARY TABLE IS UPDATED. 


R2 POINTS TO THE NODE 
R3 IS SCRATCH 


CALLING PROCEDURE - CALL WRITES P1,P2(,.P3) 
SIDE EFFECTS - THE SUMMARY COUNTERS ARE CLEARED. 


REGISTER USAGE - R1 POINTS TO THE CURRENT LOCATION IN THE SUMMARY TABLE. 
TO BE UPDATED’S ADDRESS. 


AFTER T 


Pi - THE NUMBER OF NODES TO UPDATE (1 OR 2). 

P2 - THE ADDRESS OF THE FIRST NODE ADDRESS. 

P3 - THE ADDRESS OF THE SECOND NODE ADDRESS IF P1 = 2 OR 
BLANK IF Pl = 1. 


EITHER ONE 


THE NODE TO THE TABLE IF IT 
AN ERROR IS REPORTED IF THE END OF THE TABLE 


R4 HOLDS THE SECOND NODE TO BE UPDATED ADDRESS. 


TEMP 

TEMP , #1 

10% 

Re 

R2,R4 
@STATBL Ri 
pint ) 

(RL), @- 1 

80% 

CMPADR R1,R2 


; SEE HOW MANY NODES TO WRITE 
-(RS), TEMP 


MOV 
IF ONLY ONE, GET ADDRESS 


MOV 
IF TWO, GET a i+ ADDRESSES 


IF YES, 


& e.% 


-CR5S) -R2 


et »R2 


IF YES, ERROR 

LOOK FOR MATCHING ADORESS 
MOV R2.CRS)> 
MOV R1,CRS)>+ 
JSR R4.PREG14 
-WORD CMPADR- 
MOV -€RS).RS 


BR 
ELSE, POINT Ri TO NEXT ENTRY 
AND C IN 


AGA 
ADD N- ~DIRESS TO TABLE 
SIX 6yicS WORTH 


SEQ 114 


MOV RS).R 
MOVE STATISTICAL TABLE ADDRESS INTO Ri 
SEE IF SLOT IS EMPTY 


IF YES, BR 
SEE IF TABLE FULL 


Ly 
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WRITES - WRITE DATA ONTO SUMMARY TABLE 


SE@ 115 


5067 100176 062701 000006 50$: ADD »R1 ; POINT R1 TO DATA 
1 2 063721 050052 ADD S.NREC,CR1)+ ; UPDATE SUMMARY DATA, RECEIVES NOT COMPLETE 
5069 1 063721 050050 ADO S.REC,CR1)+ ; RECEIVES COMPLETE 
5070 100212 063721 050034 ADD oe cai) ; LENGTH ERRORS 
$071 100216 063721 0500356 ADD $.C 1)+ ; COMPARE E 
S072 100222 063721 050040 ADD S.BYTE,C(R1)+ ; BYTES COMPARED 
5073 100226 105001 BCC 60$ i IF OVERFLOW, INCREMENT NEXT WORD 
5074 100230 005511 ADC CR1) 
5075 100232 062701 000002 605: ADD #2,R1 ; POINT R1 TO NEXT DATA 
5076 100236 063721 050042 ADD S.XFER,(CR1)+ ; BYTES TRANSFERED 
5077 100242 103001 BCC 70$ i IF OVERFLOW, INCREMENT NEXT WORD 
$078 100244 005511 ADC CR1) 
5079 100246 062701 000002 70$; ADD #2,R1 ; POINT Ri TO NEXT DATA 
5080 100252 005337 050314 DEC TEMP ; DECR NO OF NODES COUNTER 
S081 100256 001414 BEQ 90$ ; IF NO MORE, od 
5082 100260 010402 MOV R4,Re ; POINT R2 TO NEXT NODE 
$083 100262 000715 BR 20$ ; AND UPDATE SUMMARY DATA 
5084 100264 80$: PRINTF @TABFUL,@SUMM ; PRINT TABLE FULL MESSAGE 
264 012746 053422 MOV @SUMM, -CSP ) 
100270 012746 053274 MOV @TABFUL, -CSP) 
100274 012746 000002 MOV e2,-(SP) 
100300 01 MOV »RO 
100302 104417 TRAP CSPNTF 
100304 062706 ADD » SP 
5085 100310 005037 0500352 90$: CLR S.NREC ; CLEAR SUMMARY DATA COUNTERS 
5086 100314 005037 0500 CLR S.REC 
5087 100320 005037 050034 CLR S.LEN 
100324 005037 050056 CLR S.COMP 
5089 100330 005037 050040 CLR S.BYTE 
100334 005037 050042 CLR . XFER 
5091 100340 RETURN 
100340 000207 RTS PC 


M9 
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BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 


SEQ 116 


5093 .SBTTL BINDEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 
5094 t--¢ 
5095 ; FUNCTIONAL a oe 
5096 ; THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUMBER TO 
5097 : A DECIMAL NUMBER REPRESENTED AS AN ASCIZ STRING. 
5098 : 
5099 ; INPUTS - Pi - THE ADDRESS OF THE FIRST WORD OF BINARY DATA 
5100 : BITS 0-15. THE SECOND WORD, BITS 16-31, IS 
rege : EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 
: 
ates ; OUTPUTS - THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 
: 
ey ; SIDE EFFECTS - NONE 
: 
5107 ; REGISTER USAGE - R1 POINTS TO BITS 0-15 OF BINARY DATA 
5108 : R2 POINTS TO BITS 16-31 OF BINARY DATA 
5109 : R3 POINTS TO THE OUTPUT STRING 
a110 ; R4 POINTS TO THE POWERS OF 10 TABLE 
; 
5112 3--° 
5113 100342 BINDEC: : 
5114 100342 Os =e ; PUT ADDRESS OF BINARY WORD INTO R1 
00342 014501 MOV -(R5),R1 
5115 100344 010546 MOV RS, -CSP) 
5116 100346 010102 MOV R1,R2 ; PUT ADDRESS OF SECOND WORD INTO R2 
5117 100350 7 000002 ADD »R2 
5118 100354 012703 100526 MOV @DECSTR,RS ; PUT ADDRESS OF OUPUT STRING INTO R3 
5119 100360 012704 100456 MOV @TENPWR ,R4 ; ADDRESS OF TEN POWER TABLE 
51 100364 012705 1 MOV @TENPWR+2,R5S 
5121 100370 012737 000012 100444 MOV #10. .40$ 
5122 100376 37 100542 10$: CLR T ; CLEAR PARTIAL COUNTER 
$123 100402 161411 208: SUB CR4),CR1) ; SUBTRACT 10 POWER 
5124 100404 12 sec (Re) 
5125 1 161512 SuB CRS). CR2) 
5126 100410 002403 BLT 30$ ; BRANCH IF 10 POWER TOO LARGE 
5127 100412 005237 100542 INC PART ; ELSE ADD 1 TO PARTIAL 
5128 100416 000771 , BR 20% ; LOOP 
5129 1004 062411 30$: ADD CR4)+,CR1) ; RESTORE BINARY WORDS 
5130 100422 005512 ADC (R2) ; AND POINT R4& TO NEXT TABLE ENTRIES 
5131 100424 062412 ADD CR4)+,CR2) 
5132 100426 022525 CMP CR5)+,CRS)+ 
5133 100430 052737 000060 100542 BIS @'O,PART : CHANGE PARTIAL TO ASCII 
5134 100436 113723 100542 MOVB PART ,CR3)-+ ; AND PUT INTO OUTPUT STRING 
5135 100442 327 DEC (PC)+ ; HAVE WE DONE ALL 10 DIGITS 
5136 100444 000000 40$: ‘ 0 
5137 100446 001353 BNE 10$ ; IF NO, BRANCH 
5138 100450 105023 CLRB CR3)+ ; IF YES, TERMINATE WITH ZERO 
5139 100452 012605 MOV CSP)+,RS 
5140 100454 RETURN 
100454 000207 RTS PC 
5141 100456 TENPWR: 
5142 100456 145000 145000 ; 1.0 E09 
5143 100460 035632 35632 
5144 100462 160400 160400 ; 1.0 E08 
5145 100464 002765 2765 
5146 100466 113200 113200 ; 1.0 E07 
5147 100470 000230 '@) 


CVNIAAO DEQNA NI EXERC 
BI CONVERT A 32 8B 


NDEC 


041100 
000017 
103240 
000001 
023420 


000000 
001750 
000000 


N9 
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O DECIMAL 
041100 
17 
— 
23420 
0 
1750 
0 
144 
0 
12 
0 
1 
0 


DECSTR:: .BLKB 12. 
PART:: .WORD O 


SEQ 117 


1.0 E06 
1.0 EOS 
1.0 E04 
1.0 E03 
1.0 E02 
1.0 E01 
1.0 E00 


12 BYTES FOR ASCIZ OUTPUT STRING 
PARTIAL COUNTER 


B10 
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OMMAND LINE Ss 


2166 . SBTTL COMMAND LINE TRAVERSE ROUTINES 
5168 yee 
ates PSTRV SUBROUTINE 

| 
5171 SPARSE THE COMMAND LINE SUBROUTINE 
S172 ;TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
5173 ;PARSING DIRECTIONS FROM "CLI PARSING NODES” 
ats 3 REGS USED: 

; 

5176 : R1,RS*=SCRATCH PSNUM=NUMERIC CODE FROM DATA 
5177 : R2sACTION CODE PARAMETER FROM TREE 
5178 : R3=«PARSE TREE POINTER 
S17 : R4:INPUT STRING POINTER 
51 ; CALLING SEQUENCE: 
5181 $ JSR PC .PSTRV 
5182 g-- 
5183 
5184 100544 PSTRV: 
5185 100544 013704 003204 MOV PSBUFA,R4 
5186 100550 013703 003206 MOV PSTREE ,R5 
5167 100554 121327 000005 PsTRS: CHMPB (R35), 03 ;SEE IF ONE OF FIRST THREE SPECIAL CODES 
5188 100560 003405 BLE 10$ ;IF YES, DON’T CHECK INPUT STRING 
5189 100562 105714 TSTB (R4) SSEE 4 ANY CHARS LEFT IN INPUT STRING 
5190 100564 001441 BEQ PSEXIT 3BR 
5191 100566 121327 000015 CMPB CR3),@11. | SEE IF SPECIAL CLI CHAR CODE OR ASCII 
5192 100572 3023 BGT 30% ;8R IF REGULAR ASCII CHAR. 
5193 100574 111301 108: MOvB C(R3),R1 ;GET SPECIAL CHAR CODE INTO R5 
5194 100576 301 ASL Ri 
5195 100600 016101 100614 MOV 208(R1),R1 sBUILD TRAVERSE ROUTINE ADDRESS 
5196 100604 062701 100614 ADD 0208 ,Ri 
5197 100610 004711 JSR PC.CRL) 3JSR TO SPECIAL CLI TRAVERSE ROUTINE 
5198 100612 000760 BR PSTRS :GO SEE IF MORE OF STRING LEFT 
380 
5201 100614 000114 208: . WORD TRVERR -208 ; TRAVERSE TABLE FOR “CLI FUNCTIONS” 
5202 100616 000134 . WORD TRVEXI -20% 31 
5203 100620 000152 . WORD TRVBR - 208 ie 
5204 100622 000162 . WORD TRYP IF -20% 33 
5205 100624 000 . WORD TavSPA-20$ ,4 
5206 100626 000270 . WORD TRYNUM -208 35 
5207 100630 000612 . WORD TRVALP -208 36 
5208 100632 000656 . WORD TRVALN-208 37 
5209 100634 000270 . WORD TRVOCT -208 38 
5210 100636 . WORD TRVDEC -208 39 
4H 100640 000744 . WORD TRVSTR-203 310 
asta sNOT A SPECIAL CODE 
5215 100642 121314 308: CMPB (R3),(R4) ;SEE IF FIRST CHAR OF STRING IS A MATCH 
5216 100644 001403 BEQ 40% ;8R IF A MATCH 
S2!'7 100646 004737 100712 JSR PC, TRVBRC ;IF NOT A MATCH, GO TAKE MISS BRANCH 
5218 100652 000740 RR PSTRS ; THEN GO BACK PT’'G TO MISS NODE 
5219 100654 005204 403: INC R4 ;IF A MATCH, INCR. CHAR POINTER 
5220 100656 004737 100672 JSR PC, TRVACT ; GO DO ACTION DEFINED Br 
$221 100662 062703 000004 ADD 04,R3 ; ACTION CODE IN CLI NODE, THEN 
$222 3 ADUUST PTR TO NEXT CLI NODE 


C10 
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100666 
1006 70 


5266 101010 


101014 


101020 
101022 
101026 
101030 
101032 
101034 


101036 
101042 
101044 


000732 
000207 


005201 
000772 


100672 
177777 


100670 
100672 
003221 
100670 


100672 
100712 


100672 
003221 


100712 
100722 


000011 


003221 


BR PSTRS 
PSEXIT: RTS PC 


;GOTO USER ACTION ROUTINE 
TRVACT: MOVB 1(R3),R2 


BIC @177400,R2 
MOV PSACT,R1 
JSR PC,CR1) 
RTS PC 
;TAKE BRANCH IN TREE 
TRVBRC: MOV 2(R3),R1 
ADD R1,R35 
RTS PC 


;NO BRANCH TAKEN 
TRYNOB: ADD 04,R5 
RTS PC 


TRVERR: JSR PC, TRVACT 
MO @-1,P$G080 
TST (SP) 
JMP PSEXIT 
s;EXIT ACTION C 
TRVEXI: JSR PC, TRVACT 
CLRB Ps 
TST (SP )> 
PSEXIT 
s;BRANCH ACTION CODE 
TRVBR: JSR PC, TRVACT 
JMP TRVBRC 
sBRANCH- IF ACTION CODE 
TRVBIF: JSR «7 TRVACT 
TST P§GDBD 
10% 
JMP TRYBRC 
108: JMP TRVNOB 
Tan] ACTION — 
TRVSPA: CLR Ri 
10%; CMPB (R4),011 
BNE 20% 
INC R4 
INC Ri 
BR 10$ 
20%: CMPS (R4),040 
BNE 30% 
INC R4 


SEQ i119 


sRETURN FROM PARSER 


sGET ACTION CODE FROM CLI NODE 
sCLEAR ANY SIGN EXTENSION 

sGET ADDRESS OF CLI ACTION ROUTINE 
sGO DO ACTION DEFINED By CODE 

SRE TURN TO CALLING CODE 


sGET BRANCH DISPLACEMENT FROM TREE 
3 AND POINT R3 TO THE “MISS” NODE 
; RETURN TO PSTRV 


; THINGS OK, UPDATE R3 TO POINT TO NEXT 
; NODE AND RETURN TO PSTRV 


ee ee el 


3; TAKE ERROR ACTION 

sSET ERROR RETURN FLAG 

;GET RID OF “JSR PUSH TO TRVERR” 
;sRETURN DIRECT TO EXIT OF PSTRV ROUTINE 


;TAKE EXIT ACTION 

3SET GOOD/BAD FLAG TO 7 eae (O)” 
;GET RID OF “JSR PUSH TO TRVEXI” 

;RETURN DIRECT TO ExIT OF PSTRV ROUTINE 


;GO TAKE BRANCH ACTION 


;SEE IF P$GDBD SET OR CLEARED By ACTION 
;IF CLEAR FALL THRU TO NEXT NODE 

rELSE TAKE THE “MISS” BRANCH 

;JUST UPDATE TO NEXT NODE IF THINGS OK 


;CLEAR “SPACE OR TAB FOUND” FLAG 
;SEE IF CHAR, ™ CMD LINE= TAB 
:;8R IF NO, NOT TAB 

3 INC INPUT STRING POINTER 

; INDICATE A TAB FOUND 

3GO CHECK NEXT CHAR 


;SEE IF CHAR. IN CMD LINE= SPACE 
;BR IF NO, NON-SPACE OR NON-TAB CHAR, 
;INC INPUT STRING POINTER 
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101142 
101144 


101224 


101226 
101232 
101234 
1012356 
101240 


101242 


10 
101270 
101272 


012737 
000137 


012737 
010546 
005001 
121427 
001001 
000406 
121427 


001004 
112737 
005204 


121427 


012746 
012746 
010600 
104417 


062706 
112737 
000475 


121427 
3 


103440 
013737 


100672 
100722 
100712 


000012 
101112 


000010 


000055 
177777 


OS2222 
000001 


000004 
177777 


000071 


003214 


0Gv060 
003214 


003214 


003216 


003216 


003217 


000012 


003221 


003212 


—- i 


SEQ 120 


~- «6S LINDICATE A SPACE FOUND 
303: TS! Ri | SEE IF on SPACES” OR TABS FOUND 
BEG 40% ;8R IF NO, TAKE NO ACTION 
JSR PC, TRVACT 3GO TAKE ACTION IF ANY FOUND 
JMP TRVNOB ;JUST GO UPDATE RS TO NEXT NODE IF OK 
40$: JMP TRVBRC ;TAKE BRANCH (MISS) IF NONE FOUND 
TRVDEC: = 7 foe ;USE DECIMAL AS RADIX AND ASSUME + 
TRVOCT: ;(SAME AS TRYNUM SINCE DEFAULT > IS OCTAL) 
TRYNUM: MOV 08. ,.PSRADX E OCTAL AS RADIX AND ASSUME - 
TRVNMA: PUSH RS 
MOV RS, -(SP) 
CLR Ri ;CLEAR DIGIT COUNTER 
CMPB (R4),@' « ;SEE IF THERE'S A + SIGN THERE 
BNE 10$ ; BR IF NO 
BR 208 ; ELSE PS$RADX ALREADY SAYS +, JUST BR 
10$: CMPB (R4),0' - ;SEE IF THERE'S A - SIGN THERE 
BNE 30% ; BR IF NO 
MOVB @-1,PS8RADX+1 3;SET “MINUS FLAG” CHI BYTE OF PSRADX) 
20%: INC R4 ;BUMP R4 TO POINT TO FIRST CHAR 
30$: CMPB (R4), 060 3;SEE IF CHAR. LESS THAN A “0” 
BLT 60$ ‘BR IF YES (NOT NUMERIC) 
CMPB (R4), 067 ;SEE IF CHAR. GREATER THAN A “7” 
BLE 50% ; BR IF YES 
Cc PS$RADX, #10. ;SEE IF IN DECIMAL MODE 
BEQ 403 ; BR IF YES (CAN USE HIGHER LIMIT) 
CR4),971 ;SEE IF DIGIT WAS A 8 OR 9 
T 60$ ;B8R IF NON-NUMERIC 
PRINTF @CLIBRX sELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 
MOV @CLIBRX, -( SP) 
MOV 01, -(SP) 
MOV RO 
TRAP CSPNTF 
ADO 04 ,SP 
MOVB @-1,P$G080 ;SET ERROR RETURN FLAG 
BR 110$ 3; PRINT ERROR AND TAKE MISS 
403: CMPB (R4),071 ;SEE IF CHAR. GREATER THAN A “9” 
BGT 60$ ;8R IF YES CNOT NUMERIC) 
50$: INC R4 sUPDATE CMD LINE PTR TO NEXT CHAR 
INC oy s INDICATE A NUMERIC FOUND 
BR 30% 3GO LOOK AT NEXT CHAR. 
60$: TST R1 ;SEE IF FOUND ANY NUMERICS 
BEQ 110$ ;BR IF NO, TAKE “MISS” BRANCH 
a on an ‘GET POINTER TO START OF NUMERIC STRING 
S 1. 
CLR P $NUM ;CLEAR LOC. WHERE VALUE WILL BE STORED 
70$: a os Pe ;GET ASCII CHAR AND CONVERT IT TO A @ 
S 0, 
ASL P $NUM ;SHIFT CURRENT _— TO MAKE ROOM 
BcS 100% ;ERROR IF NUMBER TOO BIG 
MOV PSNUM,PSCNT :;SAVE FOR LATER m CASE DECIMAL RADIX 
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380 101524 


012746 
0600 


121427 


003214 
003214 
003216 
003212 
003214 


003217 
003214 


100672 
100722 


052175 
000001 
000004 
177777 
100712 


000101 
000132 


000012 
003214 


003221 


100$: 


110$: 


208: 


E10 
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1 

P$RADX, #10. 

80% 

PSCNT ,PSNUM 
$ 


PC, TRVACT 
TRVNOB 


oCL INBG 


@-1,P$GD80 
RS 


TRVBRC 


R1 
(R4), 0101 
20% 
on eeeee 


TRVBRC 


é 
ada 
(R4), 0132 


SEQ i121 


;ERROR IF NUMBER TOO BIG 
sERROR IF NUMBER TOO GIG 
sSEE IF DECIMAL RADIX 

;BR IF NOT EQUAL 

;ERROR IF NUMBER TOO BIG 


sERROR IF NUMBER TOO BIG 


= = ~f WAS PRECEDED BY A - SIGN 
i 

; ELSE NEGATE THE NUMBER BEFORE LEAVING 
sRESTORE RS 


MOV (SP )+-. RS 
;SINCE NUMERIC FOUND, GO TAKE ACTION 
;GO POINT R3 TO NEXT NODE 


;PRINT NUMBER TOO BIG a 


Vv OCLINSG, -(SP) 
MOV #1,- SP ) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04,SP 
;SET ERROR RETURN FLAG 
sRESTORE RS 
(SP)+,RS 


MOV 
;TAKE “MISS” BRANCH 


;CLEAR ALPHA FOUND FLAG 
E IF CHAR. ee an A “A” 


AL 
;UPDATE CMD LINE PTR TO NEXT CHAR 
; INDICATE AN ALPHA WAS FOUND 

;GO0 LOOK AT NEXT CHAR. 

;SEE IF ANY ALPHA'S WERE FOUND 

;8R IF NO 

;IF ANY FOUND TAKE ACTION 

; THEN UPDATE R3 TO NEXT NODE -NO BRANCH 
;NONE FOUND, TAKE MISS BRANCH 


;CLEAR ALPHANUM FOUND FLAG 

;SEE IF CHAR. LESS THAN A “O” 

;BR IF YES CNOT NUMERIC OR ALPHA) 
;SEE IF CHAR. GREATER THAN A "9” 

;BR IF YES (NOT NUMERIC) 

sUPDATE CMD LINE PTR TO NEXT CHAR. 
; INDICATE A NUMERIC FOUND 


EE 
;BR IF YES (NOT ALPHA) 
;SEE IF CHAR, GREATER THAN A “2” 


F10 
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100672 
100722 
100712 


000006 
003212 


003212 


003212 


100672 
000004 


100712 


30$: 


40$: 
TRVSTR: 


108: 


20%: 


PC, TRVACT 
4(R3).R35 
PC 


RS 
TRVBRC 


SEQ 122 


;BR IF YES (NOT ALPHA) 

3; UPDATE “y* LINE PTR TO NEXT CHAR 
sINDICATE AN ALPHA FOUND 

;GO LOOK AT NEXT CHAR. 

ALPHANUM'S WERE FOUND 


IF NO 
VIF ANY FOUND TAKE ~Uy. 
; THEN UPDATE RS TO NEXT NODE -NO BRANCH 
sNONE FOUND, TAKE MISS BRANCH 
;SAVE RS 


MOV 
sPOINT R1 TO CMD STRING 


;POUNT RS TO MATCH STRING FROM CLI NODE 
;CLEAR CHAR MATCH COUNT 

iSEE IF END OF MATCH STRING YET 

;8R IF YES 

fy IF an OF CMD LINE YET 


iSEE IF CHARACTERS MATCH 

é 

sMATCH -INCREMENT MATCH COUNT 
sUPDATE STRING POINTERS 


3BR TO CONTINUE CHECKING CHARS. 


;WHEN DONE SEE IF ANY MATCHES FOUND 
;8R IF NO, GO TAKE THE MISS BRANCH 
sPOINT CMD POINTER TO END OF STRING € 
sRESTORE RS 

MOV CSP)+,RS 


;IF A MATCH FOUND, GO DO MATCH ACTION 
;UPDATE R3 TO NEXT NODE (NO BRANCH) 

; (NO RETURN THRU TRYNOB SINCE DIFFERENT 
; tw eel DUE TO MATCH STRING) 


sREST 

MOV (SP)+-,R5 
; GO TAKE BRANCH 
; CPARSED OK), -1 IF Tit CMD..... 


RS, -(SP) 
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G10 
SEQ 123 


.SBTTL TRVADR - TRAVERSE COMMAND LINE INPUT ADDRESS 


TRVADR TRAVERSE COMMAND LINE INPUT ADDRESS 


THIS ROUTINE IS CALLED BY TWO DIFFERENT ACTION ROUTINES. THE 
NODE ACTION ROUTINE CALLS IT TO PARSE THROUGH THE NODE 
ADDRESS INPUT BY THE OPERATOR. THE OPRSEL ACTION ROUTINE 

CALLS TRVADR TO PARSE THROUGH THE “OPERATOR ay MESSAGE 
WHICH HAS BEEN INPUT IN THE COMMAND LINE. FOR A NODE ADDRESS, 
THE ROUTINE LOOKS FOR A ‘/' AS A DELIMETER FOR THE ADDRESS, 
AND REPLACES THE / WITH A NULL BYTE FOR USE BY THE ADDRESS 
PACKING ROUTINE. WHEN CALLED BY THE OPRSEL ROUTINE 
IS EXPECTED AS THE DELIMETER FOR THE OPERATOR SELECTED MESSAGE. 
IF A NULL STRING IS ENTERED, AN ERROR MESSAGE IS PRINTED. 


me 


INPUTS - R4 - POINTS TO THE BEGINING OF THE ADDRESS 
OR MESSAGE IN THE COMMAND LINE 

OUTPUTS - SUMMARIZED IN TABLE BELOW 
COMMAND LINE OUTPUTS 
INPUT CONDITION ! PSGDBD ! R4 POINTS TO ! CFLAG CONTAINS ! PSMERR 
ee Se ee ee eee 
ILLEGAL CHAR. ! -1 ' ILL. CHAR. '! : N/A 
ADR. /ASSIST a ' END OF LINE ! CASIST : N/A 
ADR. / TARGET : 
ADR. / : 0 ' END OF LINE ! CTARGT + N/A 
ADR. ; : 
ADR./CHAR. OR! ‘ : 
“OPR SEL/CHAR. ! : 

OTHER THAN "Av! = -1 1 / : CTARGT + N/A 

“T" OR BLANK ! : : ' 
om : 0 ! CHAR. AFTER ” ! 2 -3 
“OPR SEL” ae : CHAR. AFTER “| OPRSEL + 0 


CALLING PROCEDURE - JSR PC anh 
REGISTER USAGE - 


R4 POINTS TO THE NEXT CHAR. IN THE COMMAND LINE 


TRVADR: CLR Ri ;CLEAR HEX DIGIT FOUND FLAG 
000000 10$: CMPB CR4),00 ;SEE IF NLA CHAR. 
BEG 50% ; IF YES, RET 
000040 CMPB ee ;SEE IF ILLEGAL CHAR R 
BLT ;IF YES; BRANCH TO ERROR ROUTINE 
000042 CMPB Rad, 042 ;SEE IF CHAR. IS A‘ 
BEG ;IF YES ,BRANCH TO 70$ 
000057 CMPB (Ra), 057 ;SEE IF CHAR. IS A “/" 
BEG 50% s;BRANCH IF YES 
0001532 (R4),0132 ;SEE IF CHAR. GREATER THAN “fF” 
BGT 203 ; IF YES, ILLEGAL CHAR. 
INC R4 sUPDATE CMD LINE POINTER TO NEXT CHAR. 
INC Ri FOUND 


177777 003221 20%: 
30$: 


; INCIDATE A br es CHAR. 
BR 10$ ;LOOK AT NEXT CHAR, 


MOVB @-1,P$GDB80 ;SET ERROR FLAG 
BR 90 ;RE TURN 
TST Ri ;SEE IF VALID CHARACTERS FOUND 


001772 
012737 
56 


000414 


012746 
0600 


000000 003734 40%: 


000000 
000000 
000101 
000124 
177777 
000057 
000001 


000000 
000006 


053076 
000001 


000004 
177777 


003221 


003734 


003734 


003225 


50$: 


MOVB 
INC 
RTS 


HO 
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20% 
@CTARGT,CFLAG 
90$ 


@-1,PS$MERR 
R4 
PC 


SEQ 124 


; IF NO 

;SET T 

;RE TURN 

) SEE IF VALID CHARACTERS FOUND 
EGAL CHAR. 


ACE “se WIT H NUL 


ILLEGAL CHAR, 
ARGET 


; IF YES, SET TARGET FLAG 

; ELSE, SET ERROR FLAG, 

; READJUST COMMAND LINE POINTER 

; AND REPLACE / IN CMD LINE TO FIX ERROR 
; SET TARGET FLAG AND RETURN 

;SET ASSIST FLAG 


;SEE IF ANY a ake TYPED 

;IF NO, ia: 

sELSE, REPLACE x? yo NULL 

;SET OPERATOR SELECTED FLAG 

;RETURN 

;PRINT NULL STRING ERROR MESSAGE 
MOV @NULSTR, -C SP) 
MOV #1,-CSP) 
MOV 
TRAP 
ADD 

;SET OPER. SELECTED MSG. ERROR FLAG 


:MOVE CMD. LINE POINTER TO NEXT CHAR. 
;RETURN 


T10 
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5505 . SBTTL REPORT CODING SECTION 
5506 
5507 
5506 3¢ 
5509 ; THE REPORT CODING SECTION CONTAINS THE 
ate ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
11 g-- 
5512 
5513 102106 BGNRPT 
102106 LSRPT:: 
5514 
5516 j SSSSSASASSSSSSAASSSASASASSSSSASSSSSACSASASCASSAASASSAAAASSSAAAASAASSASAS SAS Ka 
5517 : THIS SECTION, WHICH IS OPTIONAL, CONTAINS THE CODE FOR PRINTING 
5518 $ STATISTICAL INFORMATION GATHERED BY THE ey eh It Is 
5519 3 EXECUTED BY THE OPERATOR COMMAND “PRINT” OR BY THE MACRO CALL 
5520 8 “DORPT“ USE THE PRINTS MACRO TO PRINT THE TNF ORMAT ION. 
5521 : USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 
5522 3 THE PROGRAMMER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
55235 ; FORM AND CONTENT OF THE STATISTICS. 
5524 _ SSS LSCSGCSSSCKSKSSHHSHSSSSSSSASSK SSH ASHE SSSA SLKSSSSSSSCSASAAAS SHAKES KS 
5526 
5527 102106 004737 105170 JSR PC ,ACTSUM 
5528 102112 EXIT RPT 
102112 000167 . WORD J$ JMP 
5530 102114 000000 . WORD L10006-2-. 
3 
5531 3 INSERT LOCAL STORAGE THAT IS USED ONLY 
5532 3 DURING THE REPORT SECTION. 
5533 ; 
5534 
5535 3 
5536 3 INSERT MESSAGES THAT ARE USED ONLY 
5537 3 DURING THE REPORT SECTION. 
5538 : 
5540 
5541 .EVEN 
5542 
5543 102116 ENDRPT 
102116 L10006: 


102116 104425 TRAP CSRPT 


J10O 


LOAD DEVICE, THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 
THE GPHARD. : 


SKMSACASSSAKASSSSAAASSAKASSASAAASASASS SAS SSAAAASASSSSSSSSSSAASGASSSSSASAAASSSSSS SSK K KES 


CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 13:12 PAGE 45 SEQ 126 
PROTECTION TABLE 
anes . SBTTL PROTECTION TABLE 
3° 
5547 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 
aes ; TO PROTECT THE LOAD MEDIA, 
se 
5550 102120 BGNPROT 
102120 L$PROT: : 
5551 102120 177777 i ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
S552 102122 177777 -1 ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
5553 102124 177777 -1 ;OFFSET INTO P-TABLE FOR ORIVE NUMBER 
cone 102126 ENDPROT 
SALES C CRAKS TSCS SRSA CSKKSCSSCSSSASS KAAS SAAC ESAS CSSKASASSSATSSAGBTAAAC SEAS ES BEAT ESA SKK a eH 
5557 ; INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (OFFSET 
5558 ; REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE 
5559 ; ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 
5560 ; ITEM DOES NOT APPLY, LEAVE ENTRY AS -1. WHEN THE RUNTIME 
5561 : SERVICES EXECUTES A GPHARD, IT USES THESE OFFSETS CIF NOT 
5562 ; SET TO -1) TO GET THE ITEMS AND COMPARE WITH THOSE SAVED 
ey ‘ IN THE XXDP+ MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 
: 
* 
+ 


K10 
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NI TAC ISE WET ton —s i 
3569 .SBTTL INITIALIZE SECTION 
3+ 
5571 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3372 ; AT THE BEGINNING OF EACH PASS. 
gece 
5574 102126 BGNINIT 
102126 LSINIT:: 
3379 3 
 SSSEALECAAAAL CSS S GCA CACC LHRACAA SSSA SLSR HAH SAKKSKASAASSAARAK SESE HEED Sok Ee Se 
5578 ; THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE 
5579 ; ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
5580 ; DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
5581 ; PLACE. THE EVENT FLAGS ARE READ USING THE “READEF” MACRO. 
5582 ; THE CONDITIONS UNDER WHICH THE INIT CODE IS EXECUTED AND THE 
5583 ; CORRRESPONDING EVENT FLAGS ARE: 
5584 : START COMMAND EF .START 
5585 ; RESTART COMMAND EF .RESTART 
5586 ; CONTINUE COMMAND EF . CONTINUE 
5587 ; OWERUP EF .PWR 
5588 ; NEW PASS EF .NEW 
5589 ; EXAMPLE OF EVENT FLAG USE: 
5590 : READEF %€F .START 
5591 ; BCOMPLETE STARTCODE 
5592 ; DURING THE INIT CODE, USE THE “ “ MACRO TO OBTAIN P-TABLE 
5593 ; INFORMATION FOR DEVICE TESTING. GET ONE UNIT’S INFORMATION IF 
5594 : THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMATION ON ALL 
5595 : UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERCISER. THE NUMBER 
sees ; OF UNITS AVAILABLE IS IN A HEADER LOCATION: “LSUNIT”. 
5598 { SESSCSSSAASCSSSSSAGSSAASAS SSSA SA SASSSA SSS SSAKAASSASSSSASSSASSASSSSSAASSSA Sa caa sas Se 
5600 : 
3603 ; ROUTINE STEPS 
° 
5603 ; CHECK ENTRY FLAGS AND TAKE CORRECT ACTION 
5604 j INIT THE STACKS 
5605 ; LOCATE FREE MEMORY 
5606 ; VERIFY THAT A CLOCK OF SOME SORT EXISTS 
5607 ; GET THE QNA ADDRESS FROM THE PTABLE 
5608 ; SET UP THE QNA INTERRUPT VECTOR 
5609 ; CLEAR NODE TABLE 
5610 ; CLEAR SUMMARY TABLE 
5611 ; CLEAR COUNTER DATA BASE 
5612 ; SET UP FOR CLOCK INTERRUPTS 
5613 ; CALL THE QNA INIT ROUTINE 
3614 ; GET THE DEFAULT PHYSICAL ADDRESS AND PRINT IT 
5615 : RESET THE CLOCK 
5616 : EXIT 
5617 ; 
5618 102126 INIT: 
5619 1021 PUSH R2,R3,R4 ; SAVE THE REGISTERS 
102126 010446 MOV 4,-(SP) 
102130 010346 MOV R3,-CSP) 
102132 010246 R2,-(SP) 
5620 102134 022737 000020 003734 CMP @CEXIT,CFLAG ;SEE IF EXIT COMMAND TYPED 
5621 102142 001004 BNE INIT1 ; I , DO INIT CODE 
5622 102144 005037 003734 CLR CFLAG ; ELSE, CLEAR EXIT FLAG 
5623 102150 000137 103344 JMP INICLN ; AND DO CLEANUP 
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INITIALIZE SECTION 


5624 
5625 


5626 


012700 
104447 


103424 


012700 
104447 


103002 
000137 
012700 
104447 
103002 
000137 
012700 
104447 


103002 
000137 


000137 


012705 
010606 


012777 


050024 
050024 


003746 


003736 
101366 


INIT1: 


10$: 


START: 


10$: 


L10O 


SEQ 128 
READEF #EF .START ;IF HERE BECAUSE OF “START”, DO INIT 
MOV @EF .START,RO 
TRAP CSREFG 
BCOMPLETE START 
BCS START 
READEF EF .RESTART ;IF HERE BECAUSE OF “RESTART”, DO SOME INIT 
MOV OEF .RESTART ,RO 
TRAP CSREFG 
BNCOMPLE TE 10$ 
BCC 10$ 
JMP RESTRT 


READEF #EF .CONTINUE ;IF HERE BECAUSE OF —— ExIT 


EF . CONTINUE ,RO 


TRAP CSREFG 
BNCOMPLE TE 20% 
BCC 20$ 
JMP RESTRT 
READEF #EF .NEW ;IF HERE ON NEW PASS, SKIP SOME INIT 
MOV GEF .NEW,RO 
TRAP CSREFG 
BNCOMPLETE 30$ 
BCC 30$ 
JMP NEW 
JMP INIEXI ;IF DON’T KNOW WHY WE’RE HERE, EXIT 
ISSTACK #1000,SP ;SET PARAMETER STACK POINTER 
V #1000 ,R5 , INITIALIZE THE e~ ¥- STACK POINTER. 
V SP. SP s INITIALIZE THE HARDWARE STACK POINTER. 
MEMORY FRESIZ ;GET FREE MEMORY INFO 
TRAP CS$MEM 
MOV RO,.FRESIZ 
MOV FRESIZ,FREMEM ;SIZE OF FREE MEMORY IN FRESIZ 
ADD 02, FREMEM ;START OF FREE MEMORY IN FREMEM 
V @CLKCSR ,R2 ;SETUP R2 AS A PRT. TO CLOCK INFO. BLOCK 
CLOCK L,R1 ;GET LINE CLOCK INFO 
Vv 2°. ,RO 
TRAP CSCLCK 
MOV RO,R1 
BNCOMPLE TE 10$ ;IF NONE, SEE IF P a ~ wee . 
10$ 
JSR PC ,CLKSET ;SET UP CLOCK INFO TABLE AND VECTOR 
MOV @LCLKEN,CLKEN ;SET UP THE ENABLE LINE CLOCK DATA 
BR 40$ 
CLOCK P,RI1 3;GET P CLOCK INFO 
MOV @°P,RO 
TRAP CsCLCK 
MOV RO,R1 
BNCOMPLE TE 20$ :IF NO CLOCK, ERROR eee abe 
JSR PC ,CLKSET ; ELSE SET UP CLOCK INFO AND VECTOR 
ADD #2,CLKCSR ; POINT CLKCSR TO P-CLK COUNT SET REG. 
MOV oPCLKCT,@CLKCCR ;LOAD CLK SET REG. WITH COUNT VALUE 


M10 


ER AO CE GNE WE EXERCISER DIAG MACRO M1200 22-MAR-84 13:12 PAGE 44-2 


3 


102574 


162737 
012737 
000470 


012737 
012737 
012737 


000000 
013727 
000000 


012746 


012137 
012137 
012137 


000002 
000111 
000100 
003746 
000001 


000000 
070530 
003742 
000003 
000010 
000050 
002116 
177772 
177756 
003756 


003736 
003746 


003742 
003736 
003756 


20%: 


40$: 


DELAY 


TST 
BNE 
GMANID 


JSR 
BR 


PRINTF 


JMP 


#2,CLKCSR 
oPCLKEN, CLKEN 
40$ 


#100,CLKVEC 
@CLKEN, CLKCSR 

01, TIMER1 
CLKVEC , @CLKINT , #0 


50 


TIMER1 
30$ 


PC ,CLKSET 
40$ 


@NOCLK 


INICLN 


GPHARD 40,R1 


BCOMPLE TE 50$ 
JMP INICLN 

MOV (R1)+,QNAADO 
MOV CR1)+,QNAPRO 


sPOINT CLKCSR pas TO P-CLK CSR 


;SETUP TO ENABLE P 


SET TIMER 1 


BNE ° 
; DID TIMER1 DECREMENT TO ZERO? 


-CLK DATA 


SET UP INTERRUPT VECTOR 
FAKE SR LOCATION 


VALUE 
ENABLE CLOCK INTERRUPTS 


MOV 
WORD 
DEC 
BNE 
DEC 


SEQ 129 


60, -(SP) 
oCLKINT, 


-(SP ) 


@3,-(SP) 


CsSvEC 


ADD #10,SP 
WAIT SOME TIME FOR a * INTERRUPTS 


: @50,(PC)>+ 
ease 


-6(PC) 
-4 


; NO, NO CLOCK EXISTS. REPORT ERROR 
L5060,CLKHZ,0,577, 50. .60. .YES ; ASK IF 5O OR 60 HZ 


; CONTINUE 
sERROR MESSAGE 


10000$ : 


ADD 
;CANNOT CONTINUE, DO CLEANUP 


;GET P-TAB POINTER FOR pe UNIT 
V 


TRAP 


MOV 
;THIS ONE IS NOT a. 


;SAVE DEVICE ADDRESS 


;SAVE VECTOR 
;SAVE PRIORITY 


TSLOLIM 


N10 
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INITIALIZE SECTION 


5682 


013746 
012746 


012703 


0050 
013737 


013746 
012746 
013746 
012746 
epee df 


062706 
013777 
012700 
104441 


004437 
000220 


014500 
001401 
000542 


000010 
003746 
000000 


070656 


003754 


100720 


60$: 


708: 


SETVEC QNAVCO, #QNAISR,QNAPRO 


MOV 
SETPRI 
CALL 
P$POP 


BEQ 
BR 


@TBLLEN,R3S 
@NODTBL ,R2 


(R2)+ 
R3 


60$ 
@#STBLEN,RS 


@STATBL Re 
CR2)+ 
R 


Ss. R 
@CNTRS ,R2 
_ RZ 


CR2)+ 
R3 

80$ 
TIMMIN 


TIMSEC 
CLKHZ, TIMTCK 
CLKVEC, OCLKINT, CLKBR 


CLKEN, @CLKCSR 
#PRIOO 
QNAINI 


RO 


90$ 
INICLN 


;SETUP QNA INTERRUPT VECTOR 


;CLEAR NODE TABLE 


;CLEAR SUMMARY TABLE 


CLEAR ERROR F 
CLEAR FATAL FLAG ERR 


CLEAR THIS COUNT 
NOCK 


; LOAD TICKS/SEC 


SEQ 150 
MOV QNAPRO, -( SP 
MOV @QNAISR, -C SP 
MOV QNAVCO, -( SP) 
MOV 03,-CSP 
TRAP CsSVEC 
#10, 


CLEAR oes ge a ERROR COUNTER 


OR 
CLEAR SUMMARY DATA COUNTERS 


GET BASE ADDRESS OF COUNTER DATA BASE 
GET SIZE OF COUNT DATA BASE 
TURN BYTE COUNT INTO WORD COUNT 


K DOWN COUNT BY ONE 
BRANCH IF MORE TO DO 
CLEAR TIME SINCE-START-LOCATIONS 


;SETUP CLOCK INTERRUPT VECTOR 


MOV CLKBR, -( SP) 
MOV @CLKINT, -CSP) 
MOV @3,-(CSP 

TRAP 


ADO #10,SP 
;SET ENABLE BITS IN THE CLOCK TO START 
;SET PRIORITY=0 SO — i INTERRUPT 


; INITIALIZE THE QNA 
JSR 


. WORD 
; GET RETURN STATUS 


V 
; BRANCH IF NO ERRORS 


@PRIOO,RO 
TRAP C$SPRI 


R4,PREG14 
QNAINI - ANCHOR 


-(€RS),RO 


ENTTIACIZE 


5737 


013737 


013746 
012746 
013746 
012746 
104437 


062706 
013777 


012700 
104441 


004437 
000220 


014500 
001401 
000406 


004010 
003774 


000010 
000012 


000044 
000046 


002572 
002374 
002376 


003754 


100430 


1008: 


RESTRT: 


10$: 


PRINTS 


MOV 
SETPRI 
CALL 
P$POP 


BEQ 
BR 


Bil 
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SECTION 


4(R2), SIADOR+4(R3) 


BINHEX @DEPADR , 06, OSTRBUF 


@HDMSG1 , @STRBUF 


OALPHA ,PSTYPE 


TIMMIN 
CNTRS+-C.SECS 
INIEXI 
BLOFLG 


RSPFLG 
CLKMZ, TIMTCK 
CLKVEC, OCLKINT,CLKBR 


CLKEN,@CLKCSR 
oPRIOO 


QNAINI 
RO 


10% 
INICLN 


SEQ 151 


NAL 
POINT TO SYSTEM ID MESSAGE 
POINT TO PHYSICAL ADDRESS 
OUR ADDRESS IS CONSOLE ID SOURCE 
AND AGAIN 
OUR ADDRESS IS CONSOLE ID DEVICE ADDRESS 
AGAIN 
AND AGAIN 


s PUT ADDRESS INTO HEX FORMAT 
MOV OSTRBUF .CRS)- 
MOV 
MOV 


06,(RS)- 
ODEPADR. ar 
JSR 


R4,PREGI4 
PRINT ADDRESS _ 


BINHE x - ANCHOR 


ADO 
;SET MESSAGE DEFAULT VALUES 


; CLEAR RESPONDER MODE FLAG 
; CLEAR TIME SINCE -START ep tos 
; CLEAR QNA TIME SINCE STAR 


s INDICATE THAT WE ARE NO LONGER BUILDING 
; CLEAR RESPONDER MODE FLAG 
sLOAD TICKS/SEC 

;SETUP CLOCK INTERRUPT — 


CLKBR, -( SP) 
MOV @CLKINT, -(SP) 
MOV CLKVEC, -(SP) 
MOV @3,-(SP) 
TRAP CsSvEC 
0.SP 


ADD #1 
:SET ENABLE BITS IN THE CLOCK TO START 
sSET PRIORITY*0 SO CLOCK CAN INTERRUPT 

- @PRTOO RO 


CsSPRI 
s INITIALIZE THE QNA 
JSR R4 ,PREGIS 
QNA INT - ANCHOR 


; GET RETURN STATUS 
MO -€R5),RO 


v 
s BRANCH IF NO ERRORS 


Cil 
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57 
5782 


ttt? 


103366 
103366 
103366 


005037 003752 
013777 003746 100574 
000404 


104411 


CLR 
NEW: 

MOV 

BR 
INICLN: 

POP 

DOCLN 
INIEXI: 

POP 

EXIT 


TIMSEC 


CLKEN, @CLKCSR 
INIEXI 


R2,R3,R4 


R2,R3,R4 


INIT 


SEQ 152 


- BITS IN THE CLOCK TO START 
i 


s RESTORE THE REGISTERS 
MOV (SP )+,R2 
MOV (SP )+-,R3 
MOV (SP )+,R4 
; ABORT PASS 
; RESTORE THE REGISTERS 
MOV (SP )+,R 
MOV (SP)+,RS 
MOV (SP )+,R4 
; EXIT INIT SECTION 


TRAP CSExIT 
-WORD 1L10010-. 


INSERT LOCAL STORAGE THAT IS USED ONLY 


DURING THE INITIALIZE SECTION. 


INSERT MESSAGES THAT ARE USED ONLY 
DURING THE INITIALIZE SECTION. 


.EVEN 
ENDINIT 


L10010: 
TRAY CsINIT 


Dil 
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5784 .SBTTL AUTODROP SECTION 
5785 
5786 3¢ 
5787 ; THIS CODE 5S ee IMMEDIATELY AFTER THE INITIALIZE CODE IF 
5788 ; THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
57869 ; SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
5790 ; DROPPED FROM TESTING. 
5791 hee 
5792 
5793 103370 BGNAUTO 

103370 LSAUTO:: 
3796 

3 

5797 : INSERT CODE HERE TO CHECK nat taney. TO SEE IF THEY RESPOND. 
5798 : ISSUE A “DODU” FOR THOSE T 
5799 3 
5801 
5802 103370 ENDAUTO 

10337 LIOO11: 


370 
103370 104461 TRAP CsAuTC 
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103372 
103372 


30 103372 


103512 


SO 
000755 


013702 
012737 
012762 
012737 


005737 
001375 
005062 


005077 


E11 


SEQ 134 
.SBTTL CLEANUP CODING SECTION 
3° 
H THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFOR {NED 
; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
. 
; ROUTINE STEPS: 
: 
: GET CSR ADDRESS 
; CLEAN UP ANY RECEIVE BUFFERS HANGING AR 
; CLEAR INTERRUPT AND RECEIVE ENABLE BITS 
; DISABLE CLOCKS 
; EXIT 
4 
3°. 
BGNCLN 
LSCLEAN: : 
H 
; INSERT YOUR CLEANUP CODING. THIS CODING SHOULD 
; RESTORE YOUR TEST-DEVICE TO A NEUTRAL STATE. 
; THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
; PROGRAM IS INTERRUPTED By “tC”. 
2 
PSPUSH R2 ; PUT R2 ON THE STACK 
SETPRI PRIOO ; MAKE SURE CLOCKS CAN INTERRUPT 
MOV PRIOO ,RO 
TRAP CsSPRI 
TST NIRCNT ; SEE IF RECEVE COUNT ZERO 
BEG 20$ ; IF YES, EXIT 
CALL RECEVE ; ELSE, CLEAR OUT UNWANTED ENTRIES 
JSR R4 ,PREG14 
-WORD RECEVE -ANCHOR 
PSPOP Re 
MOV -CRS) .R2] 
BEQ 10$ ; IF ANY WERE FOUND, UPDATE NEXT POINTER 
MOV RRGNXT ,R2 ; GET THE DESCRIPTOR 
CALL GETRNX 1, ORRGNXT ; UPDATE NEXT AND PREVIOUS DESCRIPTOR POINTERS 
MOV @RRGNXT,CRS)> 
MOV @#1.CR5)-> 
JSR R4 ,PREG14 
.WORD GETRNX-ANCHOR 
208 BR 10$ :;SEE IF ANY MORE ENTRIES 
MOV QNAADO ,R2 ; GET DEVICE ADDRESS 
MOV 01, TIMERL ; TIMER FOR INITITIALIZE 
MOV OMRE SET CSRCR2) ; RESET THE DEVICE 
hee MOV 61, TIMER ; TIMER FOR INITITIALIZE 
TST TIMERL ; INIT DONE? 
BNE 30% ; BRANCH IF NOT 
CLR CSRC(R2) ; FINISH THE RESET 
CLR @CLKCSR ; OISABLE CLOCK 
SETPRI 4PRIO7 ; SET PROCESSOR PRIORITY BACK TO 7 


rid 
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EY PANGS RODING SET TON . — . aie Poe Ss SEQ 155 
103512 012700 000340 MOV #PRIO7,RO 
103516 104441 TRAP CsSPRI 

5852 103520 PsPOP Re : ; REMOVE R2 FROM STACK 
103520 014502 MOV -(R5),R2 
5853 103522 EXIT CLN 
103522 104432 TRAP CSExIT 
103524 000002 -WORD 1L10012-. 
5854 
5856 : 1 PH SCABEGA AAAS RE RA SENAAE ESHER DBR DEDES SD 
5857 : INSERT LOCAL STORAGE THAT IS USED ONLY 
5858 : DURING THE CLEANUP SECTION. 
5859 3 
5861 3 
5862 ; INSERT MESSAGES THAT ARE USED ONLY 
5863 ; RING THE CLEANUP SECTION. 
5864 $ 
5866 
5867 .EVEN 
5868 
5869 103526 ENDCLN 


103526 L1001e: 
103526 104412 TRAP CSCLEAN 


Gil 
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SNOP GN Seer iON , 
5871 .SBTTL OROP UNIT SECTION 
5872 
5873 pee 
5874 ; THE OROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
5875 ; TO NO LONGER BE TESTED. 
5876 gee 
5877 
5278 103530 BGNDU 
103530 L$OU:: 
5879 
5681 ; 
5882 : INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
Saas ; A” " COMMAND OR A “DODU”" MACRO EXECUTION. THE PURPOSE 
5884 : OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
oon 3 UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 
3 
5888 
5889 103550 EXIT DU 
103530 000167 . WORD J$ JMP 
103532 000000 . WORD L10013-2-. 
5890 
5892 8 
5895 : INSERT LOCAL STORAGE THAT IS USED ONLY 
5894 3 DURING THE DROP-UNIT SECTION. 
5895 ; 
5896 
5897 : 
5898 3 INSERT MESSAGES THAT ARE USED ONLY 
5899 3 DURING THE DROP-UNIT SECTION. 
5900 ; 
5902 
5903 .EVEN 
5904 
5905 103534 ENDDVU 


103534 L10013: 
103534 104453 TRAP CsOu 


Hil 
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ADO UNIT SECTION 
5907 .SBTTL ADD UNIT SECTION 
5908 
5909 tee 
5910 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5911 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
5912 ; TO THE TEST CYCLE. 
5913 g°- 
5914 
5915 103536 BGNAU 
103536 LSAU:: 
5916 
5918 3 
5919 ; INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
5920 3 AN “ADD” COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
5921 : HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
5922 3 THIS SECTION IS OPTIONAL. 
5925 : 
5925 
5926 103536 EXIT AU 
103536 000167 . WORD J$ JMP 
103540 000000 . WORD L10014-2-. 
5927 
5929 ; 
5930 3 INSERT LOCAL STORAGE THAT IS USED ONLY 
5931 3 DURING THE ADD-UNIT SECTION. 
5932 ; 
5933 
5934 : 
5935 : INSERT MESSAGES THAT ARE USED ONLY 
5936 : DURING THE ADD-UNIT SECTION. 
5937 : 
5939 
5940 .EVEN 
5941 
5942 103542 ENDAU 
103542 L10014: 


103542 104452 TRAP CsAU 


Til 
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103544 
103544 


.SBTTL TEST 1: 


APPEND THE NAME OF THIS TEST TO THE .SBTTL, AS SHOWN 
i FOLLOWING EXAMPLE. -SBTTL TEST 1: NAME OF TEST otions 


3°? 
° TEST TO eee 
3-- 


: CHANGE THE PHRASE “TEST TO ...” TO BE A FUNCTIONAL 
; DESCRIPTION OF THE HARDWARE TEST WHICH FOLLOUS. 


: INSERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 
: 
BGNTST 
Tis: 
: 
; INSERT THE CODING FOR THIS HARDWARE TEST. 


SEQ 138 


Jil 
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GE TCL COMMAND L FETCH €& INTERPRETATION SECTION 
a . SBTTL GETCL COMMAND LINE FETCH € INTERPRETATION SECTION 
3+ 
soae ; FUNCTIONAL DESCRIPTION: 
; 
cane : THIS PART OF TEST 1 IS USED TO PROMPT THE USER FOR A COMMAND 
; 
ene ; CALLING SEQUENCE 
; 
5987 : ENTERED VIA OSRS TEST DISPATCH ROUTINE 
5988 : 
5989 ; INPUT 
5990 ; 
5991 : NONE 
5992 ; 
59°3 ; IMPLICIT INPUT 
5994 : 
5995 : NONE 
5996 3 
5997 ; OUTPUT 
5998 : 
5999 ; A COMMAND FROM THE USER 
6000 F 
6001 ; IMPLICIT OUTPUT 
6002 3 
6003 : NONE 
6004 ; 
6005 ; COMPLETION CODES 
6006 ; 
6007 : NONE 
6008 ; 
6009 ; SIDE EFFECTS 
6010 ; 
6011 ; NONE 
6012 ; 
6013 ; REGISTERS USED 
6014 : 
6015 ; NONE 
6016 ; 
6017 ; DEBUG 
6018 ; 
6019 : NONE 
6020 t-- 
6021 103544 GETCL: 
6022 103544 105037 003221 CLRB ;CLEAR CMD LINE PARSING ERROR FLAG 
€023 103550 105037 003220 CLRB P SNNUF 
6024 103554 GMANID CLI$PM,CMDBUF .A,O,1.72.,.NO0 ;GET CMD LINE “ae 8 OPERATOR 
103554 104443 C$GMAN 
103556 000406 on 10000$ 
103560 002 -.WORD CMDBUF 
103562 000142 . WORD TSCODE 
103564 052104 .WORD CLISPM 
103566 000000 . WORD ¢] 
103570 000001 . WORD TSLOLIM 
103572 000110 . WORD TSHILIM 
103574 10000$ : 
6025 103574 012737 002202 003204 MOV @CMDBUF ,PSBUFA 
6026 103602 012737 050516 003206 MOV @CLITRE ,P$ TREE 


103724 


LINE FETCH € INTERPRETATION SECTION 


012737 
005037 


012746 
0600 


103726 005210 
00 


000004 
103544 


000020 003734 20%: 


10$: 


EXIT 


K1i41 
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COMMAND 


@CLIACT,PSACT 
CFLAG 


PC, ,PSTRV 
P$GDBD 


10$ 
@CLIERM 


GETCL 
P $NNUF 


#CLINUF 


GETCL 
oCEXIT,CFLAG 
GETCL 

TST 


:GO P 


ee QUALIFIER FLAG 
ARSE COMMAND TREE 
;SEE IF PARSED OK, OR AN ERROR 


;IF NOT PRINT ERROR MESSAGE 
MOV 
MOV 
MOV 
TRAP 
ADD 


SEQ 140 


@CLIERM, -( SP) 
#1, -CSP) 
SP 


;SEE IF INCOMPLETE COMMAND TYPED 
;IF NOT PRINT ERROR MESSAGE 
MOV 


F NOT GET 


;WAS EXIT COMMAND TYPED 
I NEW COMMAND LINE 


ELSE ExIT 


MOV 
MOV 


2? 


TRAP 
ADD 


TRAP 


CSExIT 


L10015- 


~-(SP) 
) 


Lil 
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CLI ACTION TABLE AND ROUTINES 


6088 2 
6089 103730 016202 103744 
6090 103734 poring 103744 


6092 103742 000207 


6095 103744 000124 
6096 103746 000126 


. SBTTL CLI ACTION TABLE AND ROUTINES 


+? 
FUNCTIONAL DESCRIPTION: 


THESE ARE THE mgt. TABLES TO DEFING WHAT TO DO WITH A COMMAND 


RECEIVED FROM A 


SEQ 141 


USER MUST CLEAR/SET P$GDBD IF USE "CLIBIF” IN CONNECTION WITH ACTION 


CALLING SEQUENCE 
JMP CL 
INPUT 


COMMAND FROM THE USER 


IMPLICIT INPUT 
NONE 
OUTPUT 


IMPLICIT OUTPUT 


COMPLETION CODES 


SIDE EFFECTS 


; 


REGISTERS USEO 


R2 - HOLDS ACTION CODE FROM THE PARSING (CLI) NODE 


DEBUG 
NONE 

CLIACT: 
A 


R2 
MOV 10$(R2),R2 
ADD 


#10$ ,Re 
JSR PC,CR2) 
RTS PC 
10$: -WORD ACTNUL-10$% 
-WORD ACTHLP-10$ 


-WORD ACTNOD-10$ 
-WORD ACTBLD-10$ 


sMULTIPLY oa CODE BY 2 


; 
;GO0 DO ACTION 
;RETURN TO TRVACT 


;0- 
31-HELP 


32-NODE 
33-BUILD 


—' OF ACTION TAKEN 


010744 


SSSESDSDSSESSSSSSSESSSSS5550585555 
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ACTRUN-10$ 
ACTPAT-10$ 


ACTIOT - 10$ 
ACTEXT-10$ 


ACTZRO-10$% 
ACT1IAL -10$ 
ACTOAL -10$ 
ACTCTT-10$ 


ACTRSP -10$ 


SEQ 142 


34-RUN SPECIFIED TEST 
35-SET ‘MESSAGE PATTERN’ TEST FLAG 
36-SAVE NODE TABLE 


4 7-PRINT st TABLE 


312-NOT ENOUGH INFO 

313-EXTRACT NI NODE ADDRESS FROM INPUT LINE 
314-SAVE ares 2 TO BEGINING OF ADDRESS STRING 
315-SET ‘NODE’ FLAG FOR SHOW COMMAND 

316-SET ‘ALPHA’ FLAG 

317-SET ‘ONES’ FLAG 

320-SET ‘ZEROS’ FLAG 


327-DETERMINE MESSAGE COPIES 

330-SET ‘NODE/ADDRESS’ FLAG 

331-SET ‘NODE/ALL’ FLAG 

332-SET ‘ALL‘ FLAG FOR RUN COMMAND 

+7 it *‘LOOPPAIR' FLAG FOR RUN CMD 
CURRENT MESSAGE PARAMETERS 

:35- -RESET MESSAGE PARAMETERS TO DEFAULT 

336-SET ‘COUNTER’ FLAG FOR SHOW COMMAND 

337-CLEAR ae NODE NAMED FROM TABLE 


ING 
341-UNSAVE NODE TABLE 
342-CLEAR SUMMARY TABLE 
343-SET ‘LOOP DIRECT’ FLAG FOR RUN COMMAND 
:44-LO0K FOR PASS COUNT DEFAULT 
:;45-UNSAVE NODE TABLE FROM A FILE 
346 - RESPONDER 


Nii 
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CLI ACTION TABLE AND ROUTINES 
6135 : 
6136 ;ACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
6137 ; INFORMATION HAS BEEN ENTERED 
6138 ; 
6139 
6140 104062 ACTNUF : 
oss 104062 112737 177777 003220 MOVB #-1,P$NNUF ;SET FLAG TO SAY NEED MORE OF COMMAND 
6145 3 
6144 ;ACTION ROUTINE TO DO NOTHING 
6145 ; 
6146 
6147 104070 ACTNUL : 
ras 104070 000207 RTS PC ;sRETURN TO PARSER 
6150 
6151 3 
6152 sACTION ROUTINE TO PRINT OUT HELP FILE 
6155 ; 
6154 
6155 104072 ACTHLP: 
6156 104072 P$PUSH R2 ;SAVE Re 
104072 010225 MOV R2,CRS)+ 
6157 104074 012702 003224 MOV @HLPTAB ,R2 ;sMOVE POINTER TO BEGINING OF HELP FILE 
6158 104100 10$: PRINTF (CR2)+ ;PRINT LINE AND INCREMENT POINTER 
104100 012246 MOV C(R2)+,-CSP) 
104102 012746 000001 MOV #1,-CSP) 
010600 MOV SP ,RO 
104110 104417 TRAP CSPNTF 
104112 062706 000004 ADD ° 
6159 104116 020227 003322 CMP R2, #HLPEND ;SEE IF ENTIRE FILE PRINTED 
6160 104122 001366 BNE 10$ ;IF NOT, PRINT MORE 
6161 104124 PSPOP Re sELSE, RESTORE R2 AND RETURN 
104124 014502 MOV -€RS),R2 
6162 104126 000207 RTS PC 
sie 
6165 ‘ACTION ROUTINE TO READ IN NODE “tie ADDRESS, STORE IT IN ADRBUF 
oie ;AND ENTER IT INTO THE NODE TABLE 
5 
6168 
6169 104130 ACTNOD: 
6170 104130 105037 003220 CLRB P $NNUF ;CLEAR NOTNUF FLAG 
6171 104134 004737 101656 JSR PC, TRVADR ; TRAVERSE ADDRESS, CHECK IF TARGET OR ASSIST 
6172 104140 105737 003221 TSTB P$GDBD ;sCHECK IF RESULTS OK 
6173 104144 001134 BNE 60$ ;IF NOT, RETURN WITH -1 IN P$GDBD 
6174 104146 10$: CALL EDPACK CBOADR, #ADRBUF , 06 ;GET ADDRESS INTO BUFFER 
104146 012725 000006 MOV 06,(R5S)> 
104152 012725 002316 MOV @ADRBUF ,CRS)>+ 
104156 013725 002370 MOV CBOADR ,CRS)+ 
104162 004437 070656 JSR R4,PREG14 
104166 004600 .WORD EDPACK-ANCHOR 
6175 104170 P$POP R1 ;CHECK RESULTS FOR NUMBER OF CHAR.S 
104170 014501 MOV -(€R5),R1 
6176 104172 001411 BEQ 20$ ;IF OK, BRANCH TO 20$ 
6177 104174 PRINTF #CADRER ;ELSE PRINT ERROR MESSAGE 


104174 012746 052746 MOV @CADRER, -( SP) 
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61768 
6179 


6160 


6181 
6182 


1 
6185 


6199 
6200 


000406 
012737 
012737 


004437 
025410 


014501 
001017 
012737 


003734 


002314 
002406 


002314 
002406 


002312 


408: 
508: 


60%; 


BR 
CALL 


PsPOP 


BNE 
PRINTF 


PRINTF 


BR 
CALL 


RTS 


B12 
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60% 
CMPADR @ADRBUF , GILLADR 


Ri 


30% 
@ILADMS 


@ILADM1 


60% 
BINHEX SADRBUF , 06, OSTRBUF 


@CASIST,CFLAG 
40$ 


@ARGTY7 .KEYWD2 
@CTARGT ,NOOTY 
$ 


50 

@ARGTY6 .KEYWD2 
OCASIST,NODTY 
ENTRND 


R1 


60% 
OCMDTY7,KEYWDL 
OMSG2 ,. KEYWD2, @STRBUF 


PC 


SEQ 144 
MOV #1, -(SP) 
MOV ~RO 
TRAP CSPNTF 
ADD 04 ,SP 
sAND RETURN 
sSEE IF ILLEGAL ADDRESS 

MOV @ILLAOR ,CRS)> 

MOV @ADRBUF ,CRS)> 

JSR R4 ,PREG14 

-WORD CMPADR -ANCHOR 

MOV -CRS),R1 

sIF YES, PRINT ERROR MESSAGE 
MOV @ILADMS, -( SP) 
MOV @1,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
MOV ee oe (SP) 
MOV #1, -(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD oP 
sCONVERT BINARY $s 

MOV @STRBUF ,CRS)- 

MOV @6,(R5S)> 

MOV @ADRBUF .CRS)> 

JSR Ra PREGIS 


. WORD 
Fak ASCII STRING 
;SEE IF TARGET OR ASSIST 


sMOVE ‘TARGET’ INTO KEYWwO2 
sMOVE TARGET INTO NODE TYPE 
sMOVE ‘ASSIST’ INTO KEYWD2 
;CALL ROUTINE TO ENTER — > ON TABLE 
JSR R4 ,PREGI4 
"WORD ENTRND-ANCHOR 
s;CHECK RESULTS 
MOV -(R5),R1 
sIF NODE TABLE FULL, RETURN 
sELSE, MOVE “NODE” INTO KEYWD1 
s INDICATE IF TARGET OR ASSIST 
MOV KEywO2, (SP) 
MOV » (SP) 
MOV SP RO 
TRAP CSPNTS 
ADD 910,SP 


Cle 
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SACTION ROUTINE TO BUILD NODE TABLE USING THE PERIODIC ADDRESS 
; IDENTIFICATION MESSAGES SENT OUT BY NODE ON THE NI 


6208 


6209 


6210 


012746 
012746 
0600 


012746 


012746 
0600 


001232 


012714 


104422 
005714 
001503 


00000 
070656 


105154 


002200 
050314 
050316 
050320 
000013 
002412 
003762 


000074 


050322 
002410 


ACTBLO: 


108: 


203: 
308: 


PRINTS 


PRINTS 


PRINTS 


P$PUSH 


oMSG1 


oMSG11 


@mMsGle 


R2,R35,R4 


SETUP @ADDMUL 
R2 


10$ 
25,EMSG25 


@TIMERS ,R4 
#60. ,(R4) 


CR4) 
70$% 
RECE VE 


; PRINT 


; SAVE REGISTERS 
MOV 
MOV 

; WRITE MULTICAST ADDRESS 
MOV 


; CHECK FOR ERROR 


IF OK, CONTINUE 
ELSE REPORT ERROR 


; ALLOW FOR CONTROL C os s 


LEAVE 


INDICATE THAT WE ARE IN BUILD MODE 
NODES IN LAST MIN.’ COUNTER 
CLEAR NODE TYPE ARGUMENT (SET TO TARGET) 
SET INTERVAL COUNTER 

SET ‘MINS. SINCE LAST NEW NODE’ COUNTER 
SET SLOT TO BEGINING OF NODE 
SET UP FOR 1 MINUTE LOOP 


CLEAR ‘NO. 


‘BUILD’ 


SEQ 145 
COMMAND MESSAGE 
MOV oMsG1, -( SP) 
MOV 01, -¢ ) 
MOv SP RO 
TRAP CSPNTS 
ADD 04 ,SP 
MOV 11, -(SP) 
MOV @1,-CSP 
MOV RO 
TRAP CSPNTS 
ADD » SP 
MOV 2, -C(SP) 
MOV @1,-(SP 
MOV SP ,RO 
TRAP CSPNTS 
ADD » SP 
R4,CRS)- 
MOV R3,CRS)- 
R2,(R5S)- 
@ADDMUL .CRS)> 
JSR R4 ,PREG14 
SE TUP - ANCHOR 
-(€R5),R2 
TRAP CSERHRO 
-WORDB 25 
-WORD EMSG25 
-WORD O 


TABLE 


CSBRK 


; SEE IF INTERVAL IS WP 


; IF YES, BRANCH 


s ELSE, CHECK FOR RECEPTION OF [UL MESSAGE 


D12 
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004437 
003044 


012746 


023727 


070656 


070656 


000010 
177777 


070656 


050322 


050320 
050320 


000050 


40$: 


60%: 


70%: 


R2 


30% 
RRGNXT RS 
GETRNX @1, ORRGNXT 


LOADO(R3) RS 
@SOURCC RS 
@NODTBL ,R2 


CMPADR R2,R3 


60% 

SLOT ,R2 
CR3)+,CR2)>+ 
CR3)-¢,CR2)> 
CR3),CR2) 
TEMP1, 3CR2) 
TEMP 1 

0376, TEMP1 
TEMP 

#13, TEMPS 
50% 


@TABFUL , @NOD 


80% 


TEMPS 
80% 


TEMP2 
TEMP2, 240, 


SEQ 146 
JSR R4, PREGI4 
CE ve - Ane 
R2 HOLDS NO OF MESSAGES RECEIVED 
MOV -(R5),R2 
IF NONE, KEEP LOOKING 


IF ONE, GET RECEIVE RING POINTER 
UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTOR 
MOV ORRGNXT ,CRS)> 


. WORD 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO NODE ADDRESS 
POINT R2 TO NODE TABLE 


SEE IF NODE ALREADY ON TABLE 


MOV oC RS)> 

MOV 2,CRS)- 

JSR R4,PREGI4 
ADR - ANCHOR 


. WORD 
GET RESULTS OF COMPARE 

MOV -(R5),R1 
DON’T ADD TO TABLE IF ALREADY THERE 


ELSE CHECK NEXT TABLE ENTRY 
SEE IF AT END OF TABLE 
IF NO, COMPARE NEXT ENTRY 
IF YES, GET NEXT TABLE SLOT 


JSR R4 ,PREG14 

-WORD FINODSL -ANCHOR 
SEE IF TABLE FULL 

MOV -C€RS),R2 


IF YES, BRANCH 
IF NO, ADD NODE TO TABLE 


SIX BYTES WORTH 


SET NODE TYPE (TARGET OR ASSIST) 
SWITCH TYPE FOR NEXT TIME 


INCREMENT ‘NODES IN LAST MIN. COUNTER 
RESET ‘MINS. SINCE LAST NODE’ COUNTER 
PRINT “TABLE FULL” MESSAGE 
MOV . (SP) 
MOV OTABFUL, -CSP) 
MOV e@2, -CSP) 
MOV SP RO 
TRAP CsPNTB 
ADD ©, SP 
SEE IF 10 MINS SINCE LAST NODE 
IF YES, EXIT 
SEE IF TIME IS UP 


Ele 
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6267 
6268 


001417 


013746 
013746 


050320 
050314 
052473 
000005 


000010 
050314 


000002 
070656 


113676 
002200 


003220 


177777 


1008: 


: 
;ACTION 
$ 
ACTSUM: 

P 


10$: 


BEQ 
PRINTS 


MOV 
TST 


BNE 
PRINTF 


80$ 
OBLOMSG, TEMP, TEMP2 


TEMP 
20$ 


SETUP @KILMUL 
Re 


90% 
34 ,EMSG25 


100$ 
PC,ACTSND 


BLOFLG 
R2,R3,R4 


PC 


IF YES 


TO PRINT OUT THE SUMMARY DATA 


P SNNUF 
R2,R3,R4 


@STATBL .R1 
CR1) 


10% 
OTABEMT , 2@SUMM 


20$ 
(R1),@-1 
20% 


(R1) 
20$ 


SEQ 147 


» EXIT 
ELSE, PRINT “STILL = MESSAGE 


MOV RO 
TRAP CSPNTS 
AOD 910,SP 
KILL THE a ADDRESS 
ay Taal 
JSR 4,PREG14 
‘ SETUP ANCHOR 
CHECK FOR ERROR 
MOV -(RS),R2 
IF OK CONTINUE 
ELSE, REPORT ERROR 
TRAP CSERHRD 
- WORD 
-WORD EMSG25 
. WORD 0 
AND LEAVE 


PRINT NODE TABLE 


INDICATE THAT WE ARE NO LONGER BUILDING 
RESTORE a 
V 


;CLEAR NOTNUF FLAG 


MOV Re, 
MOVE ADDRESS OF TABLE TO R1 
= IF TABLE EMPTY 


F NOT, 


CONT. 
ELSE PRINT ‘TABLE EMPTY’ MESSAGE 
MOV os 


-(R5),R2 
MOV -(€R5),R3 
MOV -€R5S),R4 
MOV R4,CRS)> 
MOV R3.CRS)-> 


UMM, -CSP) 
MOV @TABEMT, -( SP) 
MOV SP RO 
TRAP CSPNTF 
ADO 96, SP 


EXIT 
SEE IF AT END OF TABLE 


IF YES, EXIT 


SEE IF REST OF TABLE EMPTY 


IF vES, ExIT 


VNIAAO 
LI ACTI 


6297 


6298 


6299 


6310 


6311 
6312 


6315 


6314 


Fie 
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012746 


012746 
0600 


06 
012702 
012703 


112123 
005302 


002324 
000006 


070656 


002324 
070043 
000002 


000012 


070177 
000001 


000004 
002700 
002702 
070656 
100526 
070262 
000003 


000010 


15$: 


CALL 


BINHEX R1,06, 0STRBUF 


PRINTF ®@SUMMS1, @STRBUF 


PRINTF 


PRINTF 


MOV 
CALL 


PRINTF 


CALL 


@SUMMS2 


026 ,R2 
OSTATBF ,R3 


CR1)+¢,CR3)> 
R2 


15% 

STATBF +6,R2 
STATBF +10,R3 
@SUMMSS .R2.R35,R4 


&SUMMS4 


STATBF +14,R2 
BINDEC @STATBF +16 


@SUMMSS ,R2, @DECSTR 


BINDEC @STATEF +22 


SEQ 148 


PRINT SUMMARY DATA 
MOV OSTRBUF ,CRS)> 


MOV 06,°RS)>+ 
MOV R1,CRS)> 


NODE ADDRESS ~ 


MOV OSTRBUF , -( SP) 
MOV @SUMMS1, -(SP) 
MOV 02,-CSP) 
SP RO 
TRAP ey 
FIRST HEADER 
MOV 6s . CSP) 
MOV 01, -CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD 94 ,SP 
GET STATISTICS SIZE FOR THIS NODE 
GET BUFFER ADDRESS FOR STATISTICS 
BUFFER THE STATISTICS 
HAVE ALL BYTES FOR NODE BEEN XFERRED? 
BRANCH IF NOT 
RX NOT COMPLETE 
RX COMPLETE 
LENGTH ERRORS 
PRINT THEM OUT 
MOV R4,-CSP) 
MOV R3,-CSP) 
MOV Ro, -CSP) 
MOV @SUMMS3. -( SP) 
MOV 64,-(CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #12.SP 
SECOND HEADER 
MOV @SUMMS4 , -( SP) 
MOV #1, -CSP) 
MOV . 
TRAP CSPNTF 
» SP 


COMPARE ERRORS 

PUT BYTES COMPARED INTO ASCII STRING 
MOV @STATEF + geekne oe 
JSR R4 ,PREGI4 
. BINDEC - ANCHOR 

PRINT THEM OUT 


MOV @DECSTR, -( SP) 
MOV R2, -CSP) 


MOV @SUMMSS, -C SP) 
MOV @3,-(SP) 
MOV 


SP RO 

CSPNTF 
ADD °10,SP 

PUT BYTES TRANSFERED INTO ASCII STRING 


VNIAAO DEQNA N 
LI ACTION TABLE 


6315 


1 
105550 


012725 
004437 
007446 


105737 
001402 
000137 
105037 
012725 
012725 
004437 
026004 


014501 
001012 


002706 
070656 


100526 
070300 
000002 


000006 


003222 
106466 
003220 


002656 
002316 
070656 


208: 
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PRINTF 


BR 
P$PoP 


RTS 


Gie 


SEQ 149 
MOV soy al (RS)> 
JSR R4,PREG14 
: -WORD BINDEC -ANCHOR 
OSUMMS6 , @DECSTR ; PRINT 
MOV ODECSTR, -CSP) 
MOV os -(SP) 
MOV @2,-CSP) 
v SP ,RO 
TRAP CSPNTF 
ADO #6,SP 
10$ ; PLAY IT AGAIN, SAM 
R2,R3,R4 
MOV -(RS),R2 
MOV -(RS),R3 
pc MOV -CRS),R4 


‘ 
sACTION ROUTINE TO INITIATE THE REQUEST ID TEST TO THE SPECIFIED NODE 


-~-¢ 


; 
; FUNCTIONAL a ae 


~-*¢ 


INPUTS - 
OUTPUTS - 
CALLING PROCEDURE - JSR PC, ACTIDT 

SIDE EFFECTS - XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUS. 
REGISTER USAGE - Ri POINTS i I $WOMO FOR WRITE MODE OPERATIONS. 


ACTIOT: 
T 


1¢@$: 


15%: 


BEQ 
JMP 


CLRB 
CALL 


P$POP 
BNE 
PRINTF 


THIS SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 
TO THE NODE SPECIFIED BY THE OPERATOR IN THE COMMAND LINE. 
THE SYSTEM ID INFO OF THE SPECIFIED NODE IS THEN DISPLAYED. 
IF THE NODE DOES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 
AN ERROR IS REPORTED TO THE OPERATOR. 


IMPLICIT - THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF . 
SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 


R2 IS SCRATC 
R3 POINTS 10. THE RECEIVED MESSAGE BUFFER. 
R4 POINTS TO TIMOUT TIMER 


PSAERR ;SEE IF ADDRESS ENTERED WAS VALIO 

10$ ; IF NOT, EXIT ACTION ROUTINE 

130$ 

P SNNUF ;CLEAR NOTNUF FLAG 

CMPADR @ADRBUF ,@ILLADR ; SEE IF ILLEGAL ADDRESS 
MOV @ILLADR,CRS)> 
MOV CADRBEUF ,CRS)+ 
JSR R4 ,PREGI4 

. .WORD CMPADR-ANCHOR 

1 

MOV -(€R5),R1 

203 ; IF NO, CONTINUE 


#ILADMS ; ELSE PRINT ILLEGAL ADDRESS MESSAGE 


eT Ac? 


6358 


Hie 
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012746 
012746 
0600 


010125 


012725 
012725 
0044 


000000 
000137 
012737 


0044357 
006350 
012725 
004437 
002326 
014502 


001402 
000137 


005737 
001412 


012746 
012746 


012704 
012714 


104422 
005714 
001427 


052565 
000001 


000004 
106466 


004010 
002316 
070656 


106456 
177776 
070656 


000001 
070656 


20%: 


40$: 


JMP 
P$PUSH 


CALL 


130$ 
R1,R2,R3,R4 


CMPADR @ADRBUF , OPHYADR 


Ri 


25% 
64 ,EMSG64 


1208 

° -2, TEMP?) 
BLOREQ 
XMIT @xXMTDAT 


Re 


30$ 
90$ 


RETRYS 
40$ 
ORTRYER 


120% 


OTIMERS ,R4& 
#10. ,CR4) 


C(R4) 
60$ 


ee oo oe 


SEQ 150 

@ILADMS, 

MOV 01, -CSP) 
SP'R 


CSPNTF 
64 ,SP 


-(SP) 


SAVE REGISTERS 


Vv 

SEE IF ADDRESS IS 
MOV 

MOV 

JSR 

MOV -(RS),R1 


REPORT THAT WE CAN’T USE OUR OWN ADDRESS 
TRAP — 


. WORD 
-WORD EMSG64 
. WORD 
RESTORE REGISTERS AND EXIT 
SET COUNTER FOR NO. OF TIMES TRIED 
PACKET 


BUILD REQUEST ID MESSAGE 
JSR R4 ,PREG14 


“WORD BLOREQ-ANCHOR 
TRANSMIT REQUEST 
MOV @XMTDAT,.CRS)> 
JSR R4 ,PREG14 
.WORD XMIT-ANCHOR 
GET RESULTS, R2 = SUCCESS/FAILURE 
MOV -CRS),R2 


IF OK BRANCH 
ELSE JUMP TO 90$ 


= i CONT. DUE TO EXCESSIVE COLLISIONS 
YES, PRINT ‘EXCESSIVE ee ME SSAGE 


ORTRYER, -( SP) 
a #1,- (SP) 
MOV RO 
TRAP CSPNTF 
ADD 24,SP 
EXIT 
SET UP FOR 10 SECOND TIMOUT 
CsBRK 


TRAP 
SEE IF TIME HAS EXPIRED 
IF YES, BRANCH 


Iie 
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6403 


6404 
6405 


6406 
6407 


012746 


012746 


010246 
012746 


070656 


067360 


051115 


050042 


60$: 


70$: 


CALL 


P$POP 


BNE 
PRINTF 


PRINTF 


MOV 
PRINTF 


RECEVE 


Re 

50$ 

RRGNXT ,RS 

LOADDCR3),RS 

—_— 
$ 


TEMP 
GETRNX 41, 0RRGNXT 


50$ 
#EMSG22 


S.NREC 
100$ 


S.REC 

046..,S.XFER 

R3,R 

@SIADDR ,R2 

BINHEX R2, 06, 0STRBUF 


@SIMSG1, ¢STRBUF 


SIRCPTCR3),R2 
#SIMSG2 ,R2 


SIVERS(R3),R2 


MOVB 
PRINTF #SIMSG3,R2 


CHECK FOR ANSWER 
JSR 


SEQ 151 


R4 ,PREG14 
RE 


. WORD CEVE - ANCHOR 
R2 HOLDS NO. OF BUFFERS a he 


MOV 
IF NO BUFFERS RECEIVED. LOOP 
GET RECEIVE RING POINTER 
POINT R3 TO MESSAGE BUFF 


ER 
SEE IF MESSAGE . EY IS IN REPLY TO ONE SENT 


THROW OUT THE — 


V ORRGNXT CRS )+ 
MOV 01,C(RS)> 
JSR poe 


-WORD GETRNX-ANC 
IF NO, LOOK FOR CORRECT REPLY 


ELSE, REPORT ERROR 


HOR 
MESSAGE 


MOV @EMSG22, -C SP) 
MOV #1,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
64 ,SP 
UPDATE SUMMARY DATA 
AND EXIT 
INCREMENT ‘RECEIVED MESSAGES’ COUNTER 
UPDATE ‘BYTES TRANSFERED’ COUNTER 
PUT POINTER INTO R2 
POINT R2 TO ADDRESS 
PUT ADDRESS INTO STRBUF 
MOV @STRBUF ,CRS)> 
MOV 06,(RS)> 
MOV R2,CRS)-+ 
JSR R4,PREG14 
8 INHE X - ANCHOR 
PRINT REMOTE NODE ADDRESS 
MOV @STRBUF , -( SP) 
MOV @SIMSG1, -( SP) 
MOV @2,-CSP) 
MOV ~RO 
TRAP CSPNTF 
ADD 06, SP 
GET RECEIPT NUMBER 
PRINT RECEIPT NUMBER 
MOV R2,-CSP) 
MOV @SIMSG2, -C SP) 
MOV @2,-CSP) 
MOV SP RO 
TRAP CSPNTF 
ADD #6, SP 
GET VERSION NO. AND PRINT 
MOV &SIMSGS, -( SP) 


VNI 
ert ACTION TABLE AND ROUTI 


6406 
6409 


6410 
6411 


6412 
6415 


6414 
6415 


6416 


012746 


012725 
012725 
004437 
007176 


012746 
0600 


000002 


000006 
000030 


1008: 


110$: 
1208: 


MOVB 
PRINTF 


MOVB 
PRINTF 


MOVB 
PRINTF 


MOVB 
PRINTF 


CALL 


BR 
ERRDF 


CALL 


P$POP 


J1le 
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SIECOCRS),R2 
@SIMSG4 ,R2 


SIVECOCRS),R2 
@SIMSGS ,Re 


SIFNCTCR3),R2 
oSIMSG6 ,R2 


SIDEVC(R3),R2 
@SIMSG7,R2 


GETRNX 1, @RRGNXT 


100$ 
24 ,EMSG24 ,ERR1 


WRITES #1, @ADRBUF 


R1,R2,R35,R4 


SEQ 152 

MOV @2, -(SP) 
Vv SP RO 
TRAP CSPNTF 
06 ,SP 


GET ECO NO. AND PRINT 


MOV %2, m 
MOV SP 
TRAP CSPNTF 


MOV ~RO 
TRAP CSPNTF 
SP 


MOV 
TRAP 


MOV IMSG7, -(SP) 
MOV @2, -(SP) 
MOV SP RO 
TRAP CSPNTF 
UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTOR 
v ; ; 
MOV 01,(R5)- 
JSR R4-PREGI4 
“WORD TRNX - ANCHOR 
EXIT 
ERROR -- CAN'T TRANSMIT PACKETS 
TRAP  CSERDF 
.WORD 24 
"WORD EMSG24 
"WORD ERR1 
UPDATE SUMMARY TABLE 
MOV @ADRBUF ,(R5)- 


MOV 1,CR5)- 
JSR R4 ,PREG14 
. WORD 


RESTORE REGISTERS 
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6441 


6457 
6458 


014501 
014502 
014503 
014504 


000207 


105714 
001401 
000437 


012737 
013701 
006301 
062701 


012746 
012746 
0600 


013746 


012737 
000207 


012725 


014537 
105737 


061644 
002372 


003324 


054345 
000001 


000020 


000006 
002316 
002370 
070656 


003222 
003222 


002312 


003734 


130$: 
RTS 


;ACTION ROUTINE 


K1e 


SEQ 153 
MOV -C(RS),R1 
MOV -(R5),R2 
MOV -(RS),RS 
MOV -(R5),R4 


PC 


TO CHECK FOR ADDITION PARAMETER CHANGE I 


NPUTS 
_— PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 


ACTMSG: 
TSTB 
BEQ 
BR 
10$: 
MOV 
MOV 
ASL 
ADD 
PRINTF 
PRINTF 
CLRB 
20%: 
RTS 
8 
s;ACTION ROUTINE 
3 
ACTEXT: 
MOV 
RTS 


SACTION ROUTINE 


;CHECK FOR ADDITIONAL INPUT 
10$ ;BR IF NO 


20$ ;IF YES RETURN 

@CMDTY6 ,KEYWD1 

PSTYPE,R1 ;GET MESSAGE TYPE ASCII STRING ADDRESS 

Ri ; INTO R1 

@MSGTAB ,.R1 

@MSGPRM ;PRINT ‘MESSAGE’ COMMAND MESSAGE 
MOV OMSGPRM, -C SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 04 ,SP 

@MSG4 ,(R1),PSSIZE,PSCPYS ;PRINT MSG PARAMETERS 
MOV PSCPYS, -(SP) 
MOV PSSIZE, -CSP) 
MOV CR1),-CSP) 
MOV »-CSP) 
MOV @4,-CSP) 
MOV »RO 
TRAP CSPNTF 

#12,SP 
P SNNUF ;CLEAR NOTNUF FLAG 
PC 


TO RETURN CONTROL TO THE SUPERVISOR 
os ;SET EXIT FLAG 


TO TAKE NI NODE ADDRESS FROM INPUT STRING BUFFER 


—_ STORE IT IN THE BUFFER CALLED ADRBUF 


ACTXAD: 
CALL 


P$POP 
TSTB 


EDPACK CBOADR , #ADRBUF , 06 ;PUT NODE ———. INTO teed 


.WORD EDPACK-ANCHOR 
PSAERR ;SET ADDRESS=12 CHAR. GOOD/BAD FLAG 

MOV -(R5), PSAERR 
PSAERR ;IF GOOD, RETURN 


VNIA 
LI AC 


6459 
6460 


1ON TA 


001412 


012746 
012746 


012737 
000207 
012737 
000207 
012737 
000207 
012737 
000207 
012737 


000207 


012737 
000207 


022737 


052746 
000001 


000004 
003220 


002370 


000005 


002372 


002372 


002372 


002372 


002372 


002372 


003734 


Lie 


BEQ 10$ 
PRINTF #CADRER 


P $NNUF 
PC 


CLRB 
RTS 


10$: 
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;ACTION ROUTINE TO yb oa POINTER TO 


“eis COMMAND INPUT BUFFE 


ACTSR4: MOV R4,CBOADR 
10$: RTS PC 
e 
‘ACTION ROUTINE TO SET MESSAGE 
ACTALP: MOV A! PHA. PSTYPE 
RTS BC 
‘ACTION ROUTINE TO SET MESSAGE 
ACTONE: MOV @ONES PS TYPE 
RTS PC 
ACTION ROUTINE TO SET MESSAGE 
ACTZRO: MOV @ZEROS.P$TYPE 
RTS PC 
‘ACTION ROUTINE TO SET MESSAGE 
ACTIAL: MOV @ONEALT .PSTYPE 
RTS Pe 
‘ACTION ROUTINE TO SET MESSAGE 
ACTOAL: MOV OZROALT,P$TYPE 
RTS PC 
ACTION ROUTINE TO SET MESSAGE 
ACTCTT: MOV OCCITT P$TYPE 
RTS PC 
‘ACTION ROUTINE TO SET MESSAGE 
ACTOPR: CLRB = P$MERR 
JSR PC, TRVADR 
TSTB - P$GDBD 
BEQ O$ 
CLRB - P$GDBD 
BR 20$ 
10s: CMP @OPRSEL , CFLAG 


TYPE 


TYPE 


TYPE 


TYPE 


TYPE 


TYPE 


TYPE 


SEQ 154 
sELSE, PRINT ERROR MESSAGE 
MOV OCADRER, -( SP) 
MOV #1,-(SP) 
MOV SPR 
TRAP CSPNTF 
04,S°P 


ADO 
; AND CLEAR ‘NOT ENOUGH’ FLAG 


BEGINING OF OPERATOR INPUT ADDRESS 
;SAVE STRING POINTER 

= ALPHA FLAG 
;SET MESSAGE TYPE 


= ALL ONES FLAG 
;SET MESSAGE TYPE 


= ALL ZEROS FLAG 
;SET MESSAGE TYPE 


= ALTERNATING ONES FLAG 
;SET MESSAGE TYPE 


= ALTERNATING ZEROS FLAG 
;SET MESSAGE TYPE 


= CCITT FLAG 
;SET MESSAGE TYPE 


« OPERATOR SELECTED INPUT 


;CLEAR MESSAGE ERROR FLAG 
;PARSE THROUGH INPUT STRING 

; TEST GOOD/BAD FLAG 

;IF GOOD, BR 10$ 

‘CLEAR FLAG 

;SET CTARGT FLAG AND RETURN 
;CHECK TO SEE IF STRING VALID 


Mie 
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107010 


107102 
107104 


107110 


107112 


107176 
107 


001011 
012737 


012746 


023727 
003410 
022737 
003404 
013737 
000410 


000006 


002370 
070656 


053756 
000001 


003223 
177777 


106470 


003214 
001001 
003214 


053575 
000001 


000004 
106470 


003214 
000400 
003214 


SEQ 155 


BNE 20$ ;IF NOT OK, ee WITH ERROR FLAG SET 
002372 MOV GOPRSEL , PS TYPE sSET MESSAGE TYPE 
CALL SELMSG CBOADR ;PUT OPERATOR SELECTED STRING INTO BUFFER 
MOV CBUADR ,CRS)-> 
JSR R4 PREGI4 
.WORD SELMSG-ANCHOR 
BR 40$ ;RETURN 
003734 20%: CMP @CTARGT ,CFLAG ;SEE IF CTARGT FLAG SET, IF YES ERROR 
BNE 30$ :IF NOT SET, BR 30% 
PRINTF #@UNBOND ;ELSE PRINT UNBOUNDED INPUT STRING ERR. MSG. 
MOV QUNBOND , -( SP ) 
MOV #1,- (sp) 
MOV SP ,RO 
TRAP CSPNTF 
ADD : 
R 40$ ;RE TURN 
30$: TSTB P$MERR VIF PS$MERR FLAG SET, UNBOUNDED STRING 
BNE 40$ ;WAS ENTERED, ERROR ALREADY HANDLED 
003221 MOVB #-1,P$GDB8D ;SET ERROR FLAG AND RETURN 
40$: RTS PC ;RETURN 
: 
ee TO CHECK FOR MORE INPUT AFTER MESSAGE TYPE HAS BEEN 
° 
3 
ACTTYP: Foo — ;CHECK FOR ADDITIONAL COMMANDS 
; ACTION ROUTINE TO INPUT MESSAGE SIZE PARAMETER, CHECK TO SEE IF 
;IT IS WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO 
;SEE IF MORE INPUT EXISTA 
‘ 
000040 ACTSZE: oS —_ ;CHECK FOR VALID SIZE RANGE 
003214 CMP 0513. .P$NUM 
BLE 1 ;IF VALID CONTINUE 
002374 MOV — ;SET MESSAGE SIZE 
10$: PRINTF @SIZLMT ;PRINT SIZE LIMITS EXCEEDED MESSAGE 
MOV @1,-CSP) 
MOV SP .,RO 
TRAP CSPNTF 
ADO #4 ,SP 
20%: i adie ;CHECK FOR ADDITIONAL COMMANDS 
; ACTION ROUTINE TO INPUT COPIES PARAMETER, CHECK TO SEE IF IT IS 
; WITHIN LEGAL LIMITS, CHANGE PARAMETER AND THEN RETURN TO SEE IF 
— INPUT PARAMETERS EXIST 
000000 ACTCPY: 4 — ;CHECK FOR VALID COPIES RANGE 
L 
003214 CMP 0256. ,P$NUM 
BLE 10$ ;IF VALID, CONTINUE 
002376 on —_—s ;SET MESSAGE COPIES 


20 
10$:; PRINTF #CPYLMT 


;PRINT COPY LIMIT EXCEEDED MESSAGE 


VNIA 
LI AC 


ION TA 


107410 


012746 
012746 


012746 


012746 
012746 
010600 
104417 
062706 


014502 
014503 
000207 


010325 
010225 
012703 


053511 
000001 


000004 
106470 


003220 
003222 


002316 
002412 


070656 


000010 
177777 


053664 
000001 


000004 


054044 


000050 


20$: 


’ 

;ACTION ROUTINE 
: 
ACTNAD: 


10$: 


20$: 


30$: 


40$: 


3 
; ACTION 
3 
ACTNAL : 


JSR 
RTS 


CLR 
PRINTF 


P$POP 


RTS 


ROUTINE 


P$PUSH 


MOV 


PC,ACTMSG 
PC 


Nie 
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SEQ 156 
MOV SP ,RO 
TRAP CSPNTF 
04 ,SP 


ADO 
;CHECK FOR ADDITIONAL COMMANDS 


TO CLEAR NODE SPECIFIED BY PHYSICAL ADDRESS FROM NODE TABLE 


P $NNUF 
PSAERR 
40$ 


R2,R3S 


@ADRBUF ,R2 
@NODTBL .RS 
CMPADR R2,R3 


R2,R5 


PC 


TO CLEAR NODE TABLE 


R2,R5 


@TBLLEN,RS 


;CLEAR NOTNUF FLAG 
;SEE IF ADDRESS ENTERED WAS VALIO 
; IF NOT, EXIT ACTION ROUTINE 
;SAVE R2 AND R53 
MOV R3,CRS)>+ 
MOV R2,.CRS)->+ 
;sMOVE ADDRESS OF ADDRESS INTO R2 
sMOVE ADDRESS OF NODE TABLE INTO R3 
;SEE IF a 


R3,CRS)+ 
MOV R2,CRS)+ 
JSR R4 ,PREG14 
-WORD CMPADR-ANCHOR 
MOV -(R5),R1 


sIF YES, BR 20$ 

;ELSE POINT R3 TO NEXT ENTRY 

;SEE IF END OF TABLE 

sIF NOT, COMPARE NEXT ENTRY 

;ELSE, PRINT ADDRESS DOESN’ T COMPARE MSG. 
MOV @NOCMPR, 


MOV #1, (SP) 

SP.RO 

CSPNTF 
ADO #4 ,SP 

;RETURN 

;sELSE, CLEAR NODE FROM TABLE 


-CSP) 


;PRINT NODE DELETED — MESSAGE 


@ADRDEL , -C SP) 
MOV #1, -(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 24,SP 
;RESTORE R2 AND RS 
MOV -C(RS),RS 


;RETURN 


;SAVE R2,RS 
MOV R3,CRS)> 
MOV R2,(RS)-> 
;SET INCR. COUNTER TO 40 


Bis 
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CLI ACTION TABLE AND ROUTINES 
6586 107414 012702 002412 MOV @NODTBL ,R2 sMOVE NODE TABLE ADDRESS INTO R2 
6587 107420 10$: CLR C(R2)> sCLEAR BYTE IN NODE TABEL 
6588 107422 005505 DEC R3 sDECREMENT COUN 
6589 107424 001575 BNE 10$ sCONTINVE UNTIL DONE 
6590 107426 PRINTF @TABCLR, ONOD sPRINT NODE TABLE CLEARED MESSAGE 
107426 012746 053415 MOV @NOD , -( SP) 
107432 012746 054220 MOV @TABCLR, -(SP) 
107436 012746 MOV @2, - SP) 
107442 O1 MOV SP RO 
107444 104417 TRAP CSPNTF 
107446 062706 000006 ADD 06 , SP 
6591 107452 105037 003220 CLRB P $NNUF ;CLEAR NOTNUF FLAG 
6592 107456 PSPOP R2,R5 sRESTORE R2 AND RS 
107456 014502 MOV -(RS),R2 
107460 014505 MOV -CRS),RS 
yr 43 107462 000207 RTS PC 
a 
oaee sACTION ROUTINE TO RUN SPECIFIED TEST 
. 
6597 107464 ACTRUN: 
6598 107464 0427357 1 000000 BIC @BIT1S,FLAG ; CLEAR OPERATOR FLAG 
6599 107472 105037 0032 CLRB P SNNUF s CLEAR ‘NOT ENOUGH’ FLAG 
6600 107476 013737 005214 400 MOV PSNUM,PSPASS 
6601 107 022737 002312 108: CMP @CRNALL ,KEYWO1 s SEE IF ‘ALL' TEST 
6602 107512 001004 BNE 20% s IF NO, CONTINUE 
6603 107514 CALL RUNALL ; IF YES, DO ALLNODE 
107514 37 070656 JSR R4 ,PREGI4 
107520 016726 -WORD RUNALL -ANCHOR 
6604 107522 BR 50% 
6605 107524 022737 000033 002312 208: CMP OCLUPPR ,KE YWD1 s IS IT ‘LOOPPAIR: TEST 
6606 107552 1 BNE 30% ; IF NO, CONTINUE 
6607 107534 CALL RUNL UP ; IF YES, DO LOOPPAIR 
107534 004437 070656 JSR R4,PREGI4 
107540 . WORD UP - ANCHOR 
6608 107542 0004153 BR 50% 
6609 107544 022737 000043 002312 530%: CMP @CDIR ,KEYWO1 ; IS IT ‘OIRECT’ TEST 
6610 107552 1 BNE 40% ; IF NO, CONTINUE 
6611 107554 CALL RUND IR ; IF YES, OO OIRECT 
107554 37 070656 JSR R4 ,PREG14 
107560 017352 .WORD RUNODIR -ANCHOR 
6612 107562 03 BR 50% 
6613 107564 40%: CALL RUNPAT ; ELSE, ITS ‘PATTERN’ TEST 
107564 004437 070656 JSR R4 ,PREGI4 
107570 021446 .WORD RUNPAT - ANCHOR 
6614 107572 023727 002400 177777 5S0$: CMP PSPASS,@-1 : SEE IF PASS SET FOR INDEF INATE 
6615 107600 001741 BEG 108 ; IF YES, LOOP 
6616 107602 005537 002400 DEC PSPASS ; HAVE WE DONE ALL PASSES? 
6617 107606 001536 BNE 10$ ; IF NO, LOOP 
a18 107610 207 RTS PC 
3 
yr sACTION ROUTINE TO SET ‘RUN ALL’ 
; 
6622 107612 012737 000032 002312 ACTRNA: MOV @CRNALL ,KEYWD1 3 SET FLAG 
6623 107620 000207 RTS PC 
6624 107622 RUNALL: CALL DIRCOM ; RUN LOOPDIRECT TEST 
107622 004437 070656 JSR R4,PREGI4 
107626 017372 .WORD OIRCOM-ANCHOR 


ah 
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6625 


6647 


37 
012737 


004437 


012746 
012746 


000001 


060672 
000001 


000004 
110254 
002412 


070656 
002410 
002376 
000010 
070656 
002410 
177777 
002410 


070656 


000001 
070656 


002324 
000006 
070656 
002346 
000006 
070656 


002346 
061747 


002410 


050326 
002410 


002410 


40%: 


Ps$POP 


BEQ 
CMP 
BEQ 
PRINTS 


PsPOP 


CALL 


CALL 


PRINTB O@TSTMS4,0ARGTY7, OSTRBUF ,OARGTY6, OSTRBUL ; 


Ri 


20% 
#1,R1 


10% 
@PASABT 


100$ 
@NODTBL , SLOT 
FULSLT 


SLOT,R1 
PsCPYS,CPYCNT 
#10,SLOT 
FULSLT 


SLOT ,R2 
-1,SLOT 


90% 
BLOFAS R1,SLOT 


XMIT @XMTDAT 
R53 

50$ 

37,EMSG24 


BINHEX R1,06, 0STRBUF 


BINHEX R2,06,0STRBU1 


CHECK RESULTS 
MOV 
IF OK, BRANCH 


SEQ 158 


-CRS),R1 


ELSE, WAS TABLE EMPTY? 


IF YES, 


DON'T PRINT ABORT MESSAGE 


ELSE ABORT TEST AND ef ME SSAGE 


MOVE NODE TABLE 
FIND FIRST re 
J 


OPASABT , -C SP) 
MOV @1, -(SP) 
MOV SP ,RO 
TRAP CSPNTS 
ADD 04,SP 


ADDRESS TO SLOT 


ULSLT- ANCHOR 


. WORD 
AND PUT TARGET ADDRESS INTO R1 
SET UP LOOP FOR NO. OF COPIES 


UPDATE 


SLOT 
GET NEXT wees” wm FROM TABLE 


. WORD 


R4 ,PREG14 
FULSLT -ANCHOR 


SEE IF — OF TABLE 


IF YES, 
BUILD FULL ASSIST MESSAGE 
MOV SLOT,.CRS)- 
MOV R1,(RS)- 
JSR R4,PREG14 
. WORD OF AS - ANCHOR 
TRANSMIT MESSAGE 
MOV @XMTDAT CRS) 
JSR R4 ,PREG14 
‘ XMIT - ANCHOR 
CHECK RESULTS 
Vv -(€R5),R35 
IF OK, CONTINUE 
PRINT ERROR MESSAGE 
TRAP _— 
. —_— 
PRINT ERROR MESSAGE 
MOV OSTRBUF .CRS)- 
MOV 06,(R5)> 
MOV R1,CRS)> 
JSR R4 , PREGI4 
° B INHE X - ANCHOR 
MOV @STRBVU1L,.CRS)- 
MOV oC RS)- 
MOV R2,CRS)- 
JSR R4, PREGIS 
WORD INHE X - ANCHOR 
ASSIS! NODE = 
MOV eS TRBW1, -. SP) 


D15 
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0648 


6649 


110236 
110236 
110244 


110246 


012746 


000642 
062701 


012737 
000207 
004437 


017372 
014501 


002324 
061757 
060770 
000005 
000014 
070656 


061157 
00000 


050326 


002410 
000002 
070656 
000010 
002410 
070656 


00241¢ 
177777 


070656 


002410 


002312 


60$: 


708: 


100$: 


3 
s ACTION 


3 
ACTOIR: 


RUNDIR ; 


CALL 
PsPOP 


BEQ 
ERRHRD 


BR 
PRINTB 


RUNCOM 


RG 


70$ 
28 ,EMSG42,ERRS 


80$ 
@OKF U 


CPYCNT 


403 
WRITES @2,R1,SLOT 


30% 
#10,R1 


R1,SLOT 


FULSLT 


SLOT,R1 
®-1,SLOT 
30% 


DO RECEIVE LOOP 
JSR 


CHECK RESULTS 


IF OK, LOOP SOME MORE 
ELSE PRINT ERROR an 


DECREMENT ‘COPIES’ 
IF MORE TO DO 


ELSE, UPDATE SUMMARY TABLE 
MOV 


SEQ 159 

MOV Ty7,-(SP) 
MOV OTSTMS4, -( SP) 
MOV CSP) 
MOV ~RO 
TRAP CSPNTB 
ADO 014,SP 
R4 ,PREGI4 

. RUNCOM - ANCHOR 
-€R5),R4 

CSERHRD 
-WORD 28 
-WORD EMSG42 
-WORD ERRS 
MOV @1,-(SP) 
MOV ~RO 
TRAP CSPNTB 
ADD 04 ,SP 
COUNTER 

SLOT ,.CRS)>+ 

MOV R1,CRS)> 

MOV @2,CRS)>+ 

JSR R4 ,PREG14 

-WORD WRITES-ANCHOR 


POINT R1 TO NEXT TARGET NODE 


UPDATE SLOT 


GET ADDRESS FROM TABLE 
JSR 


SEE IF END OF TABLE 
IF NO, CONTINUE ELSE, FINISHED 


TO SET ‘RUN LOOP DIRECT’ FLAG 


eCDIR, KEYWOL 
PC 


OIRCOM 


Ri 


; SET FLAG 


RTS 


; CALL COMMON CODE 


JSR 
. WORD 


MOV 


R4 ,PREG14 
FUL SLT - ANCHOR 


PC 


R4 ,PREGIS 
OIRCOM - ANCHOR 


-CRS),R1 


VNIA 
LI AC 


6692 


10N TA 


022701 
001400 


000207 
005001 
0127357 


000547 
012737 


012746 


000001 


002412 
070656 
177777 
053415 


053346 
000002 


000006 
000001 


002412 
002376 


070656 
177777 


0023524 


002410 
070656 


002324 
061337 
060735 
000003 


002410 


002410 


002410 
050326 


002410 


002312 


10$: 


DIRCOM: 


10$: 
208: 


40%: 


CMP 
BEQ 
RETURN 
CLR 
MOV 
CALL 
CMP 
BNE 
PRINTF 


PRINTS 


CALL 
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@1,R1 
10$ ; 


R1 
@NODTBL , SLOT 
FULSLT $ 


#-1,SLOT 
10$ 
OTABEMT , NOD ; 


#1,R1 3 
100$ 

@NODTBL , SLOT 
PSCPYS,CPYCNT 
FULSLT 


@-1,SLOT 
100$ 
BINHEX SLOT,06,0STRBUF ; 


MOVE TABL 
SEE IF TABLE EMPTY 


IF NOC 


WAS TABLE EMPTY? 
IF YES, DON’T PRINT 


RTS 
CLEAR RESULTS REGISTER 
NODE E ADDRESS TO SLOT 


JSR 
. WORD 


ONT INUE 
ELSE, PRINT “TABLE a ME SSAGE 


PUT ‘TABLE EMPTY’ 


JSR 
. WORD 


SEQ 160 


PC 


R4 ,PREG1I4 
FUL SLT -ANCHOR 


@NOD , -( SP) 
MOV @TABEMT, -( SP) 
MOV @2,-CSP) 
MOV SP RO 
TRAP CSPNTF 


ADD 66 ,SP 
INDICATOR IN R1 


SET UP FOR NO. OF COPIES 
GET NEXT NODE IN TABLE 


R4 ,PREG14 
FULSLT -ANCHOR 


SEE IF AT END OF TABLE 
IF YES, EXIT 
PRINT ADDRESS BEING ee 


MOV oC RS)> 
MOV oCRS)- 
MOV SLOT ,CRS)- 
JSR R4 ,PREG14 
‘ B INHE x - ANCHOR 
@TSTMS2, ODIRECT,@STRBUF ; NODE ADDRESS 
MOV eSTRBUF , -CSP) 
MOV @DIRECT, -CSP) 
MOV @TSTMS2, -( SP) 
MOV @3,-CSP) 
MOV SP .RO 
TRAP CSPNTB 
ADD #10,SP 
OCPATRN, KE YWDO1 
40$ 
PSTYPE.R1 
Ri 
OMSGTAB ,R1 
OMESPAL,(CR1) 
MOV @MESPAL, -C SP) 
MOV 2, -( SP) 
MOV SP RO 
TRAP cSPNTB 
ADO #6, SP 
BLOLOD) SLOT ; CALL BUILD LOOPDIRECT SUBROUTINE 
MOV SLOT,CRS)-> 
JSR R4 ,PREG14 
-WORD BLODLD-ANCHOR 
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ROUTINES 


CLI ACTION TABLE AND 


6700 


012725 
004437 
002326 


014502 
001405 


104456 
000032 
064103 


012746 
0600 


010125 
000207 


012737 
000207 


012737 


000001 
070656 


070656 


177777 


061025 
000001 


000035 


070656 


050316 
002412 002410 


002410 


002312 


708: 


90%: 
1008: 


$ 
; ACTION 
3 
ACTRNL: 


RUNLUP ; 


CALL 


P$POP 


BEG 
ERRHRD 


BR 
CALL 


PsPOP 
BEG 
E 


MOV 
BR 
PRINTB 


ROUTINE 


MOV 
RTS 


CALL 


cio 


PAGE 52-18 SEQ 161 
XMIT @XMTDAT ; TRANSMIT LOOPDIRECT MESSAGES 
MOV OXMTDAT,.CRS)> 
JSR R4, PREG14 
. WORD XMIT - ANCHOR 
R2 ; GET RESULTS, R2 . SUCCESS /F AILURE 
MOV »,R2 
60% ; IF OK, EXIT 
26 ,EMSG24 ; ELSE PRINT ERROR MESSAGE 
TRAP CSERWRD 
. WORD 26 
. WORD EMSG24 
-WORD O 
20$ 
RUNCOM ; DO RECEIVE LOOP 
JSR R4 ,PREGI4 
. WORD RUNCOM - ANCHOR 
R4 ; GET RESULTS 
MOV -€R5),R4 
70% ; IF NO ERRORS, CONTINUE 
27,EMSG34 ,ERR?} 
TRAP CSERHRD 
. WORD 27 
. WORD EMSG34 
. WORD ERR2 
— ; PUT ERROR INDICATOR INTO R1 
@0K ; RESPONSE OK 
MOV 7. -€SP) 
MOV @1,-C(SP) 
MOV SP RO 
. TRAP CSPNTB 
ADD 04 ,SP 
CPYCNT ; DECREMENT ‘COPIES’ COUNTER 
30$ ; IF MORE TO DO, LOOP 
WRITES #1,SLOT ; ELSE,UPDATE SUMMARY TABLE 
MOV SLOT ,CRS)>+ 
MOV #1,.CR5S)>+ 
JSR R4 ,PREGI4 
. WORD WRITES - ANCHOR 
+ aia ; INCREMENT TO NEXT NODE TABLE ENTRY 
Ri 
MOV R1,CRS)> 
RTS PC 
TO SET ‘RUN LOOPPAIR' FLAG 
ne ; SET FLAG 
CHECK 
JSR R44, PREGiIS 
. WORD CHECK - ANCHOR 
TEMP 1 ; CLEAR ‘HEADER PRINTED’ FLAG 
@NODTBL , SLOT ; MOVE NODE TABLE ADDRESS TO SLOT 
FULSLT ; SEE IF TABLE EMPTY 


aT 


6743 


G15 
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111166 


070656 
177777 


177777 
111776 
0024 


0606 72 
00000 f 


000004 
111776 
000010 
000000 
177777 
111776 
000007 


070656 


070656 


002410 


002410 
050326 


9$: 
10$: 


178: 


18$: 
112$: 


110$: 
203%: 


21%: 


CMP 
BNE 
PRINTF 


PRINTF 


CALL 


PsPOP 


®-1,SLOT 
$ 


9 
@TABEMT , @NOD 


@NODTBL ,SLOT 
PsCPYS, CPYCNT 
FULSLT 


#-1,SLOT 

11$ 

30$ 

SLOT,R1 
7(R1), @CTARGT 
18% 

#EMSGS2 


oPASABT 


| 

@-1,¢(R2) 

1108 

30$ 

7(R2), @CASIST 
17% 

BLDAST R2,R1 


XMIT 


BEG 22% 
ERRHRD 26,EMSG24 


SEQ 162 
JSR R4 ,PREGI4 
-WORD FULSLT-ANCHOR 
IF NO, CONTINUE 
ELSE, PRINT “TABLE oe MESSAGE ‘ 
Vv > 
MOV @TABEMT , -( SP) 
MOV @2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD » SP 
MOVE NODE TABLE ADDRESS TO SLOT 
SET UP FOR NO. OF COPIES 
GET NEXT NODE IN TABLE 
JSR R4 ,PREG14 


-WORD FULSLT-ANCHOR 
SEE IF AT END OF TABLE 
IF YES, EXIT 


MOVE SLOT TO R1 
SEE IF TARGET NODE 


IF YES, BRANCH 
ELSE PRINT ERROR MESSAGE 
MOV #EMSG32, -( SP) 
MOV #1, -CSP) 
MOV RO 
TRAP CSPNTF 
ADD 04 ,SP 
MOV OPASABT , -( SP) 
MOV #1,-(SP) 
Vv SP RO 
TRAP CSPNTF 
ADD 94,SP 
EXIT 
POINT R1 TO TARGET NODE 
AND R2 TO ASSIST NODE 
IS R2 POINTING TO AN ASSIST NODE? 
IF NOT, ERROR, ELSE CONTINUE 
BUILD TRANSMIT ASSIST MESSAGE 
MOV 1,.CR5S)- 
MOV R2,CRS)> 
JSR R4 ,PREGI4 
. WORD BLDAST - ANCHOR 
TRANSMIT MESSAGE 
JSR R4 ,PREGI4 
. WORD XMIT - ANCHOR 
GET RESULTS, R2 = SUCCESS /F AILURE 
MOV -(R5),R 


IF OK, EXIT 
ELSE PRINT ERROR MESSAGE 


H13 
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SEQ 163 


111166 104456 TRAP CSERHRD 
111170 0000352 -WORD 26 
111172 064105 -WORD EMSG24 
111174 -WORD 0O 
6759 111176 0001357 111712 JMP 283 
6760 111202 22%: CALL BINHEX R1,06,0STRBUF ; PRINT ERROR MESSAGE 
111202 012725 002524 MOV OSTRBUF ,CRS)> 
111206 012725 000006 MOV 06,(RS)> 
111212 010125 MOV R1,CRS)-> 
111214 004437 070656 JSR R4 ,PREG14 
111220 005150 B INHE x - ANCHOR 
6761 111222 CALL B.NHEX R2,06,¢STRBU1L ; 
111222 012725 002546 MOv @STRBU1,CRS)-> 
111226 012725 000006 MOV 06,CRS)> 
111232 010225 MOV R2,CRS)+ 
111234 004437 070656 JSR R4 ,PREG14 
111240 005150 ‘ 6B INHE x - ANCHOR 
6762 111242 PRINTB @TSTMS4, OARGTY7, OSTRBUF ,CARGTY6,@STRBU1 ;  #ASSIST NODE = 
111242 012746 0023546 MOV @STRBU1, -( SP) 
111246 012746 061747 MOV @ARGTY6, -C SP) 
111252 012746 002524 MOV OSTRBUF , -(SP) 
111256 012746 061757 MOV @ARGTY7,-CSP) 
111262 012746 060770 MOV OTSTMS4, -(SP) 
111266 012746 MOV 05, -CSP) 
lli272 Ol MOV SP, 
111274 104414 TRAP CSPNTB 
111276 062706 000014 ADD 614,SP 
6763 111302 CALL ; 00 RECIEVE LOOP 
111302 004437 070656 JSR R4,PREG14 
1306 021104 ‘ RUNCOM - 
6764 111310 PsPOP ; CHECK RESULTS 
111310 014503 -(RS),.RS 
6765 111312 001405 BEG 23% ; If OK, CONT. 
6766 111314 ERRHRD 28,EMSG40,ERRS 
111314 104456 TRAP CSERHRD 
111316 000034 ° 28 
111320 064561 ° EMSG40 
111322 070432 ‘ ERRS 
6767 111324 000410 BR 
6768 111326 23%: PRINTB 
1326 012746 061046 MOV @OKRE , -C SP) 
111332 012746 000001 MOV @1,-CSP) 
11336 01 MOV SP, 
111340 104414 TRAP CsPNTB 
111342 062706 000004 ADO 24,SP 
6769 111346 101$: CALL BLDAST R1,R2 ; BUILC RECEIVE ASSIST MESSAGE 
111346 010225 MOV R2,.CRS)+ 
111350 010125 MOV R1,CRS)> 
111352 004437 070656 JSR R4 ,PREGI4 
111356 006030 , BLDAST - ANCHOR 
6770 111360 CALL ; TRANSMIT MESSAGE 
111360 004437 070656 JSR R4,PREG14 
111364 002326 a XMIT -ANCHOR 
6771 111366 P$POP ; CHECK RESULTS 
111366 014504 -C(RS), RO 
6772 111370 001276 BNE 21% ; IF OK CONTINUE, ELSE REPORT ERROR 
6773 111372 CALL BINHEX R1,06,@STRBUF ; PRINT ERROR MESSAGE 


T13 
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6774 


6775 


6776 


6777 


11 
6778 


6779 


6780 
6781 


6782 


111372 
111376 
111402 


012746 
0600 


002324 
000006 


070656 


061112 
000001 


10238: 


26%: 


CALL 


PRINTB 


CALL 


PsPOP 
BEQ 
E 


BR 
PRINTB 


CALL 


CALL 
PsPOP 
BEQ 
JMP 
CALL 


BINHEX R2,06,4STRBU1 


RUNCOM 
R3 


25% 
28 ,EMSG41 ,ERR3S 


BLOF AS 


R1,R2 


R1, 06, OSTRBUF 


; DO RECEIVE LOOP 
JSR 


GET RESULTS 
IF OK, CONT. 


BUILD FULL ASSIST MES 
MOV 


MOV 
JSR 


.WORD 
TRANSMIT MESSAGE 
JSR 


CHECK RESULTS at 
IF OK CONTINUE, ELSE REPORT ERROR 


PRINT ERROR —— 


ADD 
SAGE 


-CRS) RS 


TRAP 


#1, -(€SP) 
SP 


-€RS), RA 


@STRBUF ,CRS)>+ 
@6,CRS)> 

R1L. CRS) 

R4 ,PREG14 

B INHE X - ANCHOR 


J15 
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CLI ACTION TABLE AND ROUTINES 
6788 111606 CALL BINHEX R2,06,@STRBU1 ; 
111606 012725 002546 MOV #STRBU1,CRS)+ 
111612 012725 000006 . MOV 6, ‘ 
111616 010225 MOV R2,(RS)-> 
1 004437 070656 JSR R4 ,PREG14 
111624 005150 -WORD BINHEX-ANCHOR 
6789 111626 PRINTB #TSTMS4,@ARGTY7,@STRBUF ,@ARGTY6,@STRBU1 ; ASSIST NODE = 
111626 012746 002346 MOV @STRBU1, -C SP) 
111632 012746 061747 MOV @ARGTY6, -C SP) 
111636 012746 002524 MOV OSTRBUF , -( SP) 
111642 012746 061757 MOV MARGTY7, -CSP) 
111646 012746 060770 ' MOV @TSTMS4, -(SP) 
111652 012746 MOV oS, -C(SP) 
111656 O1 
111660 104414 TRAP CSPNTB 
111662 062706 ©°0014 ADD 014 ,SP 
6790 111666 CALL RUNCOM ; DO RECEIVE LOOP 
11666 004437 070656 JSR R4 ,PREG14 
111672 021104 ‘ RUNCOM - ANCHOR 
6791 111674 PSPOP RS ; CHECK RESULTS 
111674 014503 MOV -CRS).RS 
6792 111676 001405 BEG 28% ; IF NO ERRORS, CONT 
6793 111700 ERRHRD 28,EMSG42,ERRS 
111700 104456 TRAP CSERHRD 
111702 34 . WORD 
111704 064764 -WORD EMSG42 
111706 070432 -WORD ERRS 
6794 111710 000410 BR 103$ 
6795 111712 283: PRINTS @0OKFU 
111712 012746 061157 MOV SOKFU, -C SP) 
111716 012746 000001 MOV #1,-CSP) 
111722 010600 MOV SP RO 
111724 104414 TRAP CSPNTB 
111726 062706 000004 ADD @4,SP 
6796 111732 005337 050326 103%: DEC CPYCNT ; DECREMENT ‘COPIES’ COUNTER 
6797 111736 001402 BEQ 29% ; IF MORE TO DO, LOOP 
6798 111740 000137 111142 JMP 20s 
6799 111744 29s: CALL WRITES #2,R1,R2 ; ELSE,UPDATE SUMMARY TABLE 
111744 010225 MOV R2,CRS)> 
111746 010125 MOV R1,CRS)> 
111750 012725 000002 MOV #2,(RS)-+ 
111754 004437 070656 JSR R4 ,PREG14 
111760 007176 -WORD WRITES-ANCHOR 
6800 111762 062702 000010 ADD #10,R2 
6601 111766 010237 002410 MOV R2,SLOT 
6802 111772 000137 110774 JMP 10% 
6803 111776 30$ RE TURN 
111776 000207 RTS 
6804 112000 005737 050274 RUNCOM: TST RETRYS ; SEE IF ——. C TO EXCESSIVE COLLISIONS 
6805 112004 001120 BNE 30$ ; If VES, BR, E CONT. 
6806 112006 012704 003762 MOV OTIMERS ,R4 ; SET UP FOR 10 SECOND TIMOUT 
6807 112012 012714 000012 MOV #10. ,CR4) 
6808 112016 10$: BREAK 
112016 104422 TRAP CSBRK 
6809 112020 005714 TST CR4) ; SEE IF TIME HAS EXPIRED 
6810 112022 001517 BEQ 40$ ; IF 


YES, BRANCH 
6811 112024 CALL RECEVE CHECK FOR ANSWER 


et Tact 


1ON TA 


013746 


012737 
012702 
000411 


005237 
012737 
012702 
000412 


005002 


070656 


050034 
061506 
177777 


050332 
067745 
000003 


050036 
061515 
177777 


061462 
177777 


050032 
061446 
177777 


002314 


050040 


002314 


002314 


002314 


203: 


40$: 


50%: 


PRINTX 


K15 
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Ri 


10$ 
XFER,S.XFER 
S.REC 

RRGNXT ,R3S 
STAT2(R3),RL 
STAT1+1(R3), Re 


#177400,R1 
0370,R2 
Re 


R2,R1 
#60. Ri 
R1,BUFLEN 
20% 


S.LEN 

ew th KE YwD2 
@-1,R2 

@LGERMS ,BUFLEN,R1 


60$ 
LOADDCR3) RS 
+ Nee 2 


@30,R35 
PS$SIZE.S.BYTE 
DATCMP PSSIZE,CMPBUF ,RS 


RS 


50$ 

R3.S.COMP 
OCOMPAR , KEYWD2 
#-1, R2 

60$ 


ORETRY ,KEYWD2 
#-1,R2 
60$ 


S.NREC 
@NORE SP , KEYWD2 
#-1,R2 

65$ 


R2 


SEQ 166 


JSR R4,PREG14 
“WORD RECEVE-ANCHOR 
R2 HOLDS NO. OF BUFFERS RECEIVED 

MOV -(€RS),R1 
IF NO BUFFERS RECEIVED, LOOP 

UPDATE BYTES TRANSFERED SUM. COUNTER 

UPDATE PACKETS RECEIVED SUM. COUNTER 

GET RECEIVE RING POINTER 

GET RCV BYTE COUNT BITS 0-7 

GET RCV BYTE COUNT BITS 8-10 


OMPLETE 
ADD BYTES LOST WHILE COMPARING ADDRESSES 
CHECK FOR LENGTH ERROR 
IF OK, BR 
ELSE, UPDATE LENGTH ERRORS COUNTER 
MOVE ‘LENGTH’ TO ERROR INDICATOR 
INDICATE ERROR TO Re 
PRINT LENGTH ERROR MESSAGE 


MOV R1,-CSP) 

MOV BUF LEN, -(SP) 

MOV OLGERMS, -(SP) 

MOV @3,-(SP) 

MOV SP RO 

TRAP CSPNTX 
#10,SP 


AND EXIT 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO DATA AFTER SKIP COUNT 
POINT R3 TO FIRST DATA BYTE 
UPDATE BYTES COMPARED SUMMARY COUNTER 
CHECK FOR DATA COMPARE ERRORS 
MOV R3,.CRS)>+ 


MOV CMPBUF .CRS)>+ 

MOV PSSIZE,CRS)+ 

JSR R4 ,PREG14 

-WORD DATCMP-ANCHOR 
CHECK RESULTS 

MOV -(RS),RS 


BRANCH IF NO ERRORS 
UPDATE COMPARE ERRORS SUMMARY COUNTER 
MOVE ‘COMPARE’ TO ERROR INDICATOR 
INDICATE ERROR TO R2 


MOVE ‘EXCESSIVE — TO ERROR INCICATOR 
INDICATE ERROR IN R2 


UPDATE MESSAGES NOT RECEIVED COUNTER 
MOVE ‘NO RESPONCE’ TO ERROR INDICATOR 
= ERROR TO Re 


INDICATE SUCCESS 
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CLI ACTION TABLE AND ROUTINES 


6853 112304 
6854 


SEQ 167 


60$: 


112 013703 024226 MOV RRGNXT,R3 ; GET DESCRIPTOR 
6855 112310 CALL GETRNX 41, @RRGNXT ; UPDATE POINTER, VALIDATE PREVIOUS DESCRIPTOR 
112310 012725 024226 MOV ORRGNXT,CRS)>+ 
112314 012725 000001 MOV 1, (RS) 
112320 004437 070656 JSR R4,PREG14 
112324 006450 . WORD GE TRNX - ANCHOR 
6856 112326 65$: 
6857 112326 RETURN Re ; RETURN 
112326 010225 MOV R2,.CRS)-> 
112330 000207 RTS PC 
6858 
6859 3 
6860 ;sACTION ROUTINE TO SET ‘RUN PATTERN’ FLAG 
see : 
6863 112332 012737 000005 002312 ACTPAT: MOV @CPATRN,KEYWD1 ;SET FLAG 
6864 112340 000207 RTS PC 
6865 
6866 
6867 112342 RUNPAT: P$PUSH PSTYPE ; SAVE TYPE PARAMETER 
112342 013725 002372 MOV PSTYPE.CRS)-+ 
6868 112346 005037 002372 CLR PSTYPE ; SET TYPE TO FIRST TYPE 
6869 112352 10$: CALL DIRCOM ; SEND MESSAGES 
112352 004437 070656 JSR R4 ,PREG14 
2356 017372 . WORD DIRCOM- ANCHOR 
6870 112360 PSPOP Ri ; GET RESULTS TO KEEP STACK we — 
112360 014501 MOV -€R5),R 
6871 112362 001405 BEQ 20% ; IF OK, CONT 
6872 112364 022701 000001 CMP #1,R1 ; ELSE, WAS TABLE EMPTY 
6873 112370 001406 BEQ 30$ ; IF YES, RETURN 
6874 112372 005237 002372 20$: INC PSTYPE ; SET TO NEXT TYPE 
6875 112376 022737 000005 002372 CMP #5, PSTYPE ; SEE IF DONE ALL OF THEM 
6876 112404 BGE 10$ ; IF NOT, DO MORE 
6877 112406 30$: PSPOP PSTYPE ; RESTORE MESSAGE TYPE 
112406 014537 002372 MOV -(RS) PSTYPE 
6878 112412 RETURN 
112412 000207 RTS PC 
6879 
; 
6881 sACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 
so0s : 
6884 112414 013701 002372 ACTSMS: MOV PSTYPE,R1 sGET MESSAGE TYPE INTO R1 
6885 112420 006301 ASL Ri sMULTIPLY BY 2 
6886 112422 062701 003324 ADD @MSGTAB,R1 ; ADD MESSAGE TABLE OFFSET 
6887 112426 PRINTF #@MSGPRM ;PRINT MESSAGE PARAMETER MESSAGE 
1124%6 012746 054345 MOV » - CSP) 
112432 012746 000001 MOV #1,-(SP) 
112436 010600 MOV RO 
112440 104417 TRAP CSPNTF 
112442 062706 000004 SP 
6888 112446 PRINTF #MSG4,(R1),PSSIZE,PSCPYS ;PRINT PARAMETERS 
112446 013746 002376 MOV PsCPYS,-CSP> 
112452 013746 002374 MOV PSSIZE, -CSP) 
112456 011146 MOV CR1), -CSP) 
112460 012746 055002 MOV »-< 
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6901 


115470 


112472 
112474 
112500 
112504 


112600 
112604 


012746 
010600 


012737 
012737 
012737 


012746 


010325 


016103 
112122 
005303 
001375 


012725 
012725 


050144 
050044 
000000 


002324 
000006 


002372 
002374 
002376 


P $NNUF 
PC 


M15 


; ACTION ROUTINE TC CLEAR THE CURRENT MESSAGE PARAMETERS AND 


;RESET THEM TO THE DEFAULT VALUE 


ACTCMS: MOV 
MOV 


; 
; ACTION 


ACTCNT: 
p 


10$: 


@ALPHA ,P$TYPE 
#512. ,P$SIZE 


91,P$CPYS 
oCLRMSG 


@MSG4 ,MSGTAB ,,P$SIZE ,PSCPYS 


P $NNUF 
PC 


;RESET TYPE 

sRESET SIZE 

;RESET COPIES 

;PRINT MESSAGE a mY 
Vv 


MOV #1, -C€ 
MOV SP ,RO 
TRAP CSPNTF 
ADD » SP 
;PRINT PARAMETERS 
MOV PSSIZE,-CSP) 
MOV ~~ CSP) 
MOV .- CSP) 
MOV 04,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 


;CLEAR NOTNUF FLAG 


TO SET SHOW COUNTERS FLAG 


R1,R2,R5 


@CNTRS,R1 


#UCB12 ,Re 
C.SIZC(R1L), 


R3 


CR1i)+,CR2)+ 
R3 


10% 
R1,R2,R5 


BINHEX #PHYADR, 06, #STRBUF 


; SAVE REGISTERS 
MOV 


; GET ADDRESS OF COUNTER BUFFER 
; GET SIZE OF BUFFER 


MOV COUNTERS TO BUFFER 


: 
; SUBTRACT ONE FROM THE COUNT 
: BRANCH UNTIL ALL ARE 
; RESTORE THE area ie 
MOV -CR5),R 
MOV -C€R5). Re 
MOV -€R5),R3 
;GET ADDRESS INTO ASCII 
MOV @STRBUF CRS) 
MOV #6,(R5)> 


EYP RP IONYAaLe AAB*AdGTIneS © MACRO M200 2e-NAR-S8 


1 
6921 
1 


6922 


6925 


1 
6924 


6925 


6926 


6927 


6928 


6929 


113112 
113116 


012725 
004437 
007446 


012746 
012746 


012746 


PRINTF 


PRINTF 


CALL 


PRINTF 


CALL 


PRINTF 


PRINTF 


PRINTF 


CALL 


N13 
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MOV 
JSR 
. WORD 
@CNTROO, #STRBUF 
BINDEC #UCB12+4 
MOV 
JSR 
. WORD 
@CNTRO2, #DECSTR 
BINDEC #UCB12+10 
MOV 
JSR 
@CNTRO3S, #DECSTR ° 
#CNTRO4 ,UCB12+14 
#CNTRO>,UCB12+16 
BINDEC #UCB12+20 
MOV 
JSR 
. WORD 


SEQ 169 


OPHYADR,CRS)>+ 
R4,PREG14 
B INHE X - ANCHOR 


#UCB12+4,CR5S)- 
R4 ,PREG14 
BINDEC - ANCHOR 


MOV 
TRAP CSPNTF 

06 ,SP 
#UCB12+10,CRS)->+ 
R4,PREG14 
BINDEC - ANCHOR 
MOV @DECSTR, -( SP) 
MOV @CNTROS, -CSP) 
MOV #2, -CSP) 
MOV SP ..RO 
TRAP CSPNTF 
ADD 26 ,SP 
MOV UCB12+14, -(SP) 
MOV @CNTRO4, -CSP) 
MOV #2, -CSP> 
MOV SP RO 
TRAP CSPNTF 
ADD 26,SP 
MOV UCB12+16, -( SP) 
MOV @CNTROS, -C SP) 
MOV 2, -CSP) 
MOV SP, 
TRAP CSPNTF 

#6, SP 
#UCB12+20,(R5S>-+ 
R4,PREG14 
BINDEC - ANCHOR 


CVNIAAO 
Cir act 
6950 


6931 


©9352 


6935 


6934 


6935 


6936 


6937 


6938 


6939 


B14 


DEQNA NI EXERCISER DIAG MACRO M1200 22-MAR-84 13:12 PAGE 52-27 


ON TABLE AND 


15120 

3120 
3124 
3130 
3154 


3136 
3140 


012746 


012746 
012746 
012746 
010600 
104417 
062706 


012725 
004437 


ROUTINES 


PRINTF 


CALL 


PRINTF 


PRINTF 


PRINTF 


CALL 


PRINTF 


CALL 


PRINTF 


CALL 


@CNTROG, ODECSTR 
BINDEC @UCB12+24 
MOV 
JSR 
. WORD 
OCNTRO7, ODECSTR 
@CNTROB,UCB12-+30 
@CNTRO9, UCB12>+ 32 
BINDEC oUCB12-34 
MOV 
JSR 
. WORD 
@CNTR1O, ODECSTR 
BINDEC euCB12-40 
MOV 
JSR 
@CNTR11, @DECSTR : 
BINDEC oUCB12-44 
MOV 
JSR 


SEQ 170 


MOV @DECSTR, -(SP) 
MOV @2,-(SP) 

SP, 
TRAP CSPNTF 

06, 
@UCB12+24,(R5)> 
R4 ,PREGI4 


BINDEC - ANCHOR 


MOV ODECSTR, -¢ 
MOV OCNTRO7, -¢ 
MOV @2,-CSP) 


SP) 
SP) 


MOV SP RO 
TRAP $ CSPNTF 
ADO 06,SP 


MOV UCB12+30, -( SP) 
MOV @CNTROS, -(SP) 


MOV @2,-CSP) 

MOV SP RO 

TRAP CSPNTF 

ADD 06, SP 

MOV UCB12+32, -( SP) 
MOV @CNTROS, -C SP) 
MOV @2, -(SP) 

MOV SP, 

TRAP CSPNTF 

ADO 06 ,SP 
@UCB12+34,(RS)> 

R4 ,PREG14 
BINDEC - ANCHOR 

MOV @DECSTR, -( SP) 
MOV @2,-CSP) 

MOV SP RO 


TRAP CSPNTF 
ADO 06.SP 


@UCB12+40,(RS)- 

R4 ,PREGI4 
BINDEC - ANCHOR 

MOV @CNTR11, -( SP) 
MOV SP RO 

TRAP CSPNTF 

ADO 06, SP 
OUCB12+44,(R5)> 


R4 ,PREGIS 


C14 
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6940 


6941 


6942 


6943 


6944 


6945 


6946 


6947 


6948 


6949 


013746 
012746 
012746 
010600 


PRINTF 


CALL 


PRINTF 


CALL 


PRINTF 


CALL 


PRINTF 


CALL 


PRINTF 


PRINTF 


OCNTR1i2, @DECSTR 


BINDEC 


#UCB12+50 


OCNTR13, ODECSTR 


BINDEC 


©UCB12+54 


OCNTR14,DECSTR 


BINDEC 


euCB12 +60 


OCNTR1iS, @DECSTR 


BINOEC 


OUCB12-64 


OCNTR16, @DECSTR 


OCNTR17,UCB12+70 


JSR 


MOV 


MOV 


SEQ 171 


BINDEC - ANCHOR 


MOV OCNTR12, -( SP) 
MOV @2,-(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO 06 , SP 
@UCB1i2+50,(R5)> 
R4,PREGI4 
BINDEC - ANCHOR 
MOV @DECSTR, -C SP) 
MOV OCNTR13,-(SP) 
MOV 02, -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 6, 
@JUCB12+54,(R5)> 
R4 ,PREGI4 
BINDEC - ANCHOR 
MOV @2, -CSP) 
SP RO 
TRAP CSPNTF 
ADO 06, 
0UCB12+60,(RS)- 
R4 ,PREGI4 
BINDEC - ANCHOR 
MOV @DECSTR, -( SP) 
MOV @CNTR15, -( SP) 
MOV e2, -(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #6, SP 
@UCB12+64,(RS)> 
R4 ,PREGI4 
BINDEC - ANCHOR 
MOV @DECSTR, -( SP) 
MOV @CNTRI6, (SP) 
SP, 
TRAP CSPNTF 
ADD 26. SP 
MOV UCB12+ 70, -(5P) 
MOV OCNTR17, -( SP) 
MOV G2, -(SP) 


MOV SP RO 


D14 
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6950 


6951 


012746 
012746 
0600 


105037 
012737 


004437 
025556 
022737 
001437 


012746 
012746 
0600 


012746 
012746 
012746 


003220 
002412 


070656 
177777 
053176 
000001 
000004 
070656 
177777 


002324 
000006 
002410 
070656 
070656 
000010 
053415 


053346 
000002 


002410 


002410 


002410 


002410 


10$: 


208: 


PRINTF @CNTR18,UCB12>+72 


PRINTF @CNTR19,UCB1l2+74 


P SNNUF 
RTS PC 


ROUTINE TO PRINT OUT THE NODE TABLE 


CLRB P SNNUF 
MOV @NODTBL ,SLOT 
CALL FULSLT 
@-1,SLOT 
Q 20% 
PRINTF @NTBHDOR 
CALL FULSLT 
BEG 30% 
CALL BINHEX SLOT, 06, @STRBUF 
CALL PRTNOD 
ADD 08. ,SLOT 


BR 10$ 
PRINTF @TABEMT, ONOD 


: INCR. 


JSR 


. WORD 
;CHECK IF AT END OF TABLE 
sIF YES, RETURN 
SELSE, PUT ASCII ADDRESS INTO BUFFER 


sPRINT NODE TABLE ENTRY 
JSR 


. WORD 
;IF VES, DON’T PRINT HEADER 
sPRINT NODE TABLE HEADER 
MOV 


sMOVE NODE TABLE _- INTO SLOT 
;SEE IF TABLE EMPTY 


ADO 04 ,SP 
3F IND LOCATION IN TABLE WITH AN ADDRESS 
JSR -PREG14 


. WORD - ANCHOR 
SLOT TO POINT TO NEXT TABLE ENTRY 
sCONTINVE UNTIL ALL ENTRIES PRINTED 


SEQ 172 
TRAP CSPNTF 
ADD 06 , SP 
MOV 02, -(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 96 ,SP 
MOV UCB12+-74, -(SP) 
MOV OCNTR19, -( SP) 
MOV 62, -€ 
MOV SP RO 
TRAP CSPNTF 
ADD SP 
R4 ,PREG14 
FULSLT -ANCHOR 
ONTBHOR, -( SP) 
MOV #1, -CSP) 
MOV SP .RO 
TRAP og 4 
FULSL T - ANCHOR 
@STRBUF .CRS)> 
06.(R5S)- 
SLOT, CRS)- 
R4 ,PREGI4 
BINHE X - ANCHOR 
R4 .PREGIS 
PRTNOO 
MOV @Nod, -( SP) 
MOV eTABEMT, -. SP) 
MOV 2, - CSP) 


E14 
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114040 
114042 
114044 
114050 


010600 


104417 
062706 
000207 


105037 
010325 


000006 


003214 


002412 


000006 
114260 


003220 


308: 


RTS 


PC 


; ACTION ROUTINE mA CLEAR A NODE SPECIFIED BY NODE LOGICAL NAME 


;F ROM 
. 


THE NODE T 


ACTCNL: PSPUSH Re2 


; 
sACTION ROUTINE 


ACTSAV: PSPUSH 


6 
sACTION ROUTINE 


RTS 


MOV 
MOV 
PRINTF 


JMP 


ACTUNS: CLRB 
PS$PUSH R2,R5 


P$NUM,Re 
R 


PC 
TO SAVE NODE TABLE 


R2,R3 


@NODTBEL ,R2 
@SAVTBL R53 
@UNSMSG , @SAVED 


SAVCOM 


TO UNSAVE NODE TABLE 


P $NNUF 


SEQ 173% 
MOV SP RO 
TRAP CSPNTF 
ADD 06 ,SP 
;RE TURN 
s;SAVE R2 
MOV R2,(RS)> 
sPUT NODE LOGICAL NUMBER INTO R2 
sMULTIPLY BY 8 
s;NODE TABLE ADDRESS - 
; (LOG. NO. X 8) + @NODTBL 
sADD OFFSET 
;CLEAR ENTRY (8 BYTES) 
sRESTORE Re 
MOV -€RS),R2 
;CLEAR NOTNUF FLAG 
sPRINT MESSAGE INDICATING be > 
MOV NUM, -C SP) 
MOV Ar ~ Tae (SP) 
MOV @2, -(SP) 
MOV SP ,RO 
TRAP CSPNTF 
96 .,SP 
;RE TURN 
;SAVE R2 AND R35 
MOV R3,CRS)> 
MOV R2.CR5)- 
;SET REGISTERS he satis 
;R2 = FROM, R3 = 
;PRINT ‘ TABLE SAVED" MESSAGE 
MOV @SAVED, -( SP) 
MOV QUNSMSG, -( SP) 
MOV @2, -(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD 06. SP 


;CLEAR ‘NOT ENOUGH’ FLAG 
;SAVE R2 AND R3 


F414 
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114210 
114212 


114376 


121427 


000057 


114272 
002412 
002536 
054335 
pees 


000006 
000050 


003220 


10$: 


SAVCOM: 
10$: 


QUIT: 


3 
;ACTION 


ACTCSU: 
Pp 


10$: 


3 
;ACTION 


ACTOFT: 


10$: 


20%: 


BNE 
PRINTF 


PsPOP 
RTS 


ROUTINE 


(R4),057 
1 


OUNSMSG , @RESTOR 


@TBLLEN,R1 
ee 


10% 

R2,R5 

P SNNUF 

PC 

TO CLEAR SUMMARY TABLE 
P SNNUF 


R2 


@STBLEN,R1 
OSTATBL .R2 
(R2)> 

Ri 


10$ 
@TABCLR , @SUMM 


R2 
PC 


SEQ 174 


MOV R2,(RS)> 


sSET REGISTERS FOR COPYING 
sR2 = FROM, RS = TO 
sPRINT ‘TABLE RESTORED’ MESSAGE 


MOV @RESTOR, -( SP) 
MOV OUNSMSG, -(€SP) 
MOV 2, -(SP) 
MOV SP ,RO 
TRAP wy 
sMOVE TABLE LENGTH TO R1 
sMOVE WORD 
sDECREMENT COUNTER 
;IF MORE, LOOP 
; ELSE, RESTORE COUNTERS 
MOV -(€RS),.R2] 
MOV -(RS),RS 
; CLEAR ‘NOT ENOUGH’ FLAG 
;CLEAR ‘NOT ENOUGH’ COUNTER 
;SAVE Re 
ee 


MOV 
;MOVE TABLE LENGTH TO R 
sMOVE SUMMARY TABLE ADDRESS TO R2 
;CLEAR FIRST WORD 


;SEE IF FINISHED 


; IF NO, DO MORE 
; ELSE, PRINT ‘TABLE CLEARED’ MESSAGE 
MOV @SUMM, -¢ 
MOV @2, -CSP) 
MOV RO 
TRAP CSPNTF 
06,SP 
; AND RESTORE R2 
MOV -(R5),R2] 


TO CHECK FOR PASS DEFAULT VALUE 


ae ene 


;SEE IF SPACES 
; IF NO, # 

; ELSE, POINT TO NEXT CHAR 
; AND CHECK AGAIN 

;SEE IF DEFAULT VALUE 

; IF NO, BR 


racer Baciaste AND ROUTINES 


11 
7067 


7068 


7069 
7070 


7071 11 


7072 
7073 


7074 
7075 


7076 


7077 


012765 
012737 
000403 
012763 
000207 


010225 
005002 


013700 
104434 


103415 
013746 


000030 
000001 


000002 
003214 


000004 000002 530%: 


002370 


070656 


40$: 


: 
; ACTION 


ACTUSF : 


10$: 


G14 


22-MAR-84 13:12 PAGE 52-32 


SEQ 175 


MOV @30,2(R3) ; IF YES, POINT R3 TO SKIP CHECK PASS COUNT 
MOV #1,P$NUM :;SET DEFAULT TO 1 
BR 40$ sRE TURN 
MOV 04,2(R3) ;POINT R3 TO CHECK FOR PASS COUNT 
RTS PC 
ROUTINE TO READ A FILE FROM EXTERNAL MEDIA ONTO THE NODE TABLE 
P$PUSH Re ;SAVE R2 
MOV R2,CRS)- 
CLR R2 s INITIALIZE R2 TO NODE TYPE ‘ TARGET’ 
OPEN CBOADR ;OPEN FILE, NAME=ASCIZ STRING 
MOV RO 
TRAP CSOPEN 
BCOMPLE TE 10$ ;sRETURN IF SUCCESSFUL . 
10$ 
PRINTF @OPNERR,CBOADR ; ELSE PRINT “OPEN ERROR” 
MOV CBOADR , -( SP 
MOV @OPNERR , -( SP ) 
MOV @2,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADO » SP 
CLOSE ; CLOSE FILE 
TRAP CscLos 
CALL RDOLIN ;READ A LINE AT A TIME 
JSR R4 ,PREG14 
-WORD RDLIN-ANCHOR 
TST BAD ;SEE IF AN ERROR DURING READ 
BNE 403 ; BR ON ERROR TO LEAVE 
TST EOFF ;SEE IF EOF BEFORE PROCESS 
BEG 20$ ;IF VALID, PROCESS 
PRINTF @E0FFND ; ELSE SAY ‘END OF FILE’ AND LEAVE 
MOV @EOFFND, -(SP) 
MOV 91,-CSP) 
MOV SP .RO 
TRAP CSPNTF 
ADD 04 ,SP 
BR 40% 
PRINTF @PLINE,OFILLIN ;PRINT LINE READ FROM FILE 
MOV OPLINE, -( SP) 
MOV @2,-CSP) 
MOV RO 
TRAP CSPNTF 
ADD » SP 
CALL EDPACK #F ILLIN, SADRBUF , 06 ;PUT ADDRESS INTO BINARY 
MOV #6,CRS)> 
MOV @ADRBUF ,CRS)> 
MOV oF ILLIN, (RS) 
JSR R4 ,PREG14 
WORD EDPACK -ANCHOR 
PSPOP Ri ;CHECK RESULTS 


-CR5),R1 
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7078 
7079 


7090 


001411 


012746 
012746 
0600 


053022 
000001 


30$: 


40$: 


BEQ 
PRINTF 


BR 
PsPOP 
CLRB 
PRINTF 


RETURN 


H1i4 
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30% 
@CADERR 


40$ 
R2,NODTY 
R2 
#376,R2 
ENTRND 
Ri 


10$ 
Re 


P SNNUF 
OUNSMSG,, @RESTOR 


s IF OK, B 


R 
; ELSE PRINT ERROR aoe 
MOV 01, -CSP) 


; AND EXIT 
sSET UP NODE TYPE 


SEQ i76 


OCADERR, -( SP) 


SP RO 
TRAP CSPNTF 


ADO 04,SP 


Y 
sSWITCH TYPE FOR NEXT TIME 


;ENTER IN NODE TABLE 
JSR 


. WORD 
;GET RESULTS 
;READ MORE ADDRESS 
;RESTORE Re 


MOV 
;CLEAR ‘NOT ENOUGH’ FLAG 
;PRINT ‘TALBE RESTORED’ — 


R4 ,PREG14 
ENTRNOD - ANCHOR 


-C(RS),R1 


-CR5),R2 


ORESTOR, -( SP) 
MOV SUNSMSG, -( SP ) 
MOV @2,-(SP) 
v SP RO 
TRAP CSPNTF 
ADD 96 ,SP 
PC 


114 
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114710 


114746 


005237 


013701 
062701 


012704 
012314 


003202 


003750 
000010 


003750 


004032 
047674 


-SBTTL RESPONDER TEST 


oe 
FUNCTIONAL DESCRIPTION: 


THIS TEST FORWARDS LOOP-SERVER FORWARD REQUEST PACKETS, 
AND TRANSMITS A CONSOLE ID EVERY 8 TO 9 MINUTES. 


CALLING SEQUENCE 


3 

3 

3 

3 

: 

: 

: 

3 

; NONE 

; 

; INPUT 

; 

: NONE 

3 

; IMPLICIT INPUT 

3 

3 NONE 

3 

; OUTPUT 

3 

: NONE 

3 

; IMPLICIT OUTPUT 

3 

3 NONE 

: 

; COMPLETION CODES 

; 

: NONE 

3 

; SIDE EFFECTS 

3 

3 NONE 

PF 

; REGISTERS USED 

: 

3 NONE 

$ 

; DEBUG 

; 

3 NONE 

gee 

ACTRSP: 
INC RSPFLG 

10$: 
MOV TIMMIN,R1 
ADD #8. ,R1 

20$: 
BREAK 
CMP R1, TIMMIN 
BGE 30$ 
CLR R1 
MOV @MCSTAD,RS 
MOV #IDTDAT ,R4 
MOV (R3)+, CRO) 


INDICATE WE ARE IN LISTEN MODE 


GET CURRENT NUMBER OF MINUTES 
AND ADD 9 MINUTES TO IT 


ALLOW OPERATOR TO a © ee 7 


C$BRK 
HAS NINE MINUTES GONE hang 
BRANCH IF NOT 
INDICATE THAT TIME HAS GONE BY 
CONSOLE ID MULTICAST ADDRESS 
ADDRESS OF CONSOLE ID MESSAGE 
SET MULTICAST ADDRESS 


J14 
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000532 


012423 


024226 
040000 


010000 


024220 


000010 
000010 


40$: 


C(R3)+,2CR4) 
C(R3)+,4CR4) 
XRGCUR ,R2 
75$ 


RECEVE 


Re 

20s 

RRGNXT ,R2 
ns 
@MDISC ,STATICR2) 
40$ 

58 ,EMSGS8 


110$ 


LOADD(R2),.RS 
PROTOTCR3S),R4 
— 


50$ 
59,EMSGS9 


1108 


C(R4)+¢,CR3)> 
CR4)+, CR3)>+ 
CR4)+,CR3)+ 
OPHYADR ,R4 
C(R4)+,CR3)> 
CR4)+, CR3)+ 
C(R4)+,CR3)> 
(R3)+ 
#10,(R3) 
STATICR2),R3 
0174377,R3 
STAT2(R2),R4 
#177400,R4 
R4,R3 

960. RS 

R3 


R3 
XRGCUR ,R4 


SEG 178 


AGAIN 

AND LAST TWO BYTES 

GET CURRENT XMIT DESCRIPTOR 
GO XMIT THE CONSOLE ID 


SEE IF THERE IS A BUFFER 
JSR R4,PREG14 
.WORD _RECEVE - ANCHOR 
GET COUNT OF vAL ID RECEIVES 


-(R5),R2 
BRANCH IF NONE 


ELSE, GET ADDRESS OF DESCRIPTOR 

ARE ANY ERRORS INDICATED 

BRANCH IF NOT 

ELSE, -~ THEY VALID? 

BRANCH IF NOT 

ELSE, REPORT ERROR 
TRAP CSERHRD 
-WORD 56 
-WORD EMSG5S 
-WORD 0 


DO IT ALL AGAIN 


GET THE DATA BUFFER ADDRESS 

GET PROTOCOL TYPE CODE 

LOOP SERVER MESSAGE? 

BRANCH IF NOT 

POINT TO BEGINNING OF BUFFER 

BUMP THE POINTER 

POINT TO FUNCTION CODE 

IS THIS A FORWARD MESSAGE? 

BRANCH IF YES 

ELSE, REPORT UNINVITED A. dy RCVO 
CSERHRD 


DO IT ALL AGAIN 


FILL IN NEW DESTINATION ADDRESS 
AND AGAIN 


AND AGAIN 

POINT TO OUR PHYSTCAL ADDRESS 
FILL IN SOURCE ADDRESS 

AND AGAIN 


AND AGAIN 
POINT PAST TYPE CODE 


UPDATE THE SKIP COUNT TO NEXT FUNC CODE 


GET STATUS WORD 2 

CLEAR ALL BUT RCVD BYTE CNT BITS 8-10 
GET RCVO BYTE CNT O-?7 

KILL ALL UNWANTED BITS 

COMBINE THE TWO FOR TOTAL BYTE COUNT 
ADD MISSING BYTES 

CONVERT TO A WORD COUNT 

MAKE IT TWO'S COMPLEMENT 

GET CURRENT XMIT DESCRIPTOR 


K14 
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115172 
115176 


013702 
013703 
006203 
005403 


010362 
016202 


012422 
005203 
001375 
012725 


004437 
002326 


00000 
070656 


114724 


024226 
000001 
070656 


000020 


000002 


608: 


708: 


758: 


100$: 


1108: 


CALL 


R3,WROCNTC(R4 ) 
LOADD(CR4 ) ,R4 
LOADDCR2),R2 | 
CR2)+,CR4)> 
R3 


60% 
90$ 


@IDFUNC ,RIFUNCC(R3) 

110$ 

@IDTDAT,R4 

SOURCC(R3), DESTINCR4) 
SOURCC +2(R3),DESTIN+2°R4 
SOURCC +4(R3), DESTIN+4(R4 
XRGCUR ,R2 

IDTSIZ,RS 

R3 

R3 


R3,WROCNTCR2) 
LOADD( Re) ,.R2 


CR4)+,CR2)> 
RS 

80$ 
XMIT 


eo V/s ue oF oe oe 


@xXMTDAT 


R2 


100$ 
62 ,EMSG62 


GETXNX 1, @XRGNXT 


Ri 

110$ 
TIMMIN,.R1 
66. .R1 
20% 


GETRNX 41, @RRGNXT 


SEQ 179 


PuT IT INTO ys ag 1 DESCRIPTOR 


POINT TO Tf 


T DATA BUFFER 


XM 
GET THE RECEIVE DATA BUFFER 
START FILLING IN THE DATA BUFFER 
BUMP WORDC 
DO IT UNTIL THE PACKET HAS BEEN -.OPIED 


GO XMIT THE PACKET 


IS THIS A a tT Gur CONSOLE T PE? 


IF NOT, 


POINT TO ID TRANSMIT DATA 

FILL IN DESTINATION OF ID MESSAGE 

; FILL IN DESTINATION OF ID MESSAGE 
; FILL IN DESTINATION OF ID MESSAGE 


GET XMIT DESCRIPTOR 


SET SIZE OF XMISSION 
CHANGE WORD COUNT 


TWOS COMPLEMENT IT 


; SET XFER SIZE 


GET XMIT DATA BUFFER ADDRESS 
PUT ID DATA INTO XMIT DATA BUFFER 
BUMP COUNT 


DO UNTIL COMPLETE 


TRANSMIT THE PACKET 
MOV 


JSR 
GET STATUS 
BRANCH IF OKAY 


UPDATE XMIT =, POINTERS 


@XRGNXT,CRS)- 
#1, (R5S)> 
R4, ie 
GE TXNX 


. WORD 
WAS TRANSMISSION A 9 MINUTE SYS I 


D? 
BRANCH IF NOT, RECEIVE — NEEDS UPDATING 


ELSE GET MINUTES SINCE STAR 
AND ADD NINE MINUTES TO IT 


NOTHING RECEIVED CAUSED XMIT, DON'T UPDATE RCV PNT 


UPDATE RECEIVE RING POINTERS 
@RRGNX 


MOV T,CRS)- 
MOV #1,CRS)> 

JSR R4 ,PREGIS 

. WORD GE TRNX - ANCHOR 


L14 
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Ls 115410 000157 114724 JMP 20$ ; DO IT ALL AGAIN 


Mi4 
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SEQ 161 


La .SBTTL READ LINE OF OPENED FILE 
2 : 
7240 :; THIS ROUTINE GETS BYTES FROM AN OPENED FILE UNTIL A CR IS ENCOUNTERED 
reas ; “EOF” AND “BAD” FLAGS ARE SET IF END-OF-FILE OR ERRORS ARE ENCOUNTERED 
: 
7243 ; NOTE: ASSUMING A ASCII TEXT FILE IS BEING READ, FOR EXAMPLE: 
reas : AA-00 -03-00-01-AB<CR><LF > 
: oe 
Lo. ; AA-00-03-00-01-AB<CR><LF> 
247 : 
7248 ; WHAT YOU SEE READ BYTE-BY-BYTE IS: 
7249 ; "A. .-AB<CR><LF >A. . -AB<CR><LF>. .<O><O><0O>..... 2??? 
7250 ; SO I MADE ASSUMPTION THAT SINCE SEE “O- PADDING” AFTER LAST CHAR TO 
7251 : END-OF -FILEBLOCK, ANY CHARACTER THAT IS NOT “SPACE OR GREATER” OR A 
7252 : <CR> OR <LF> THEN I'LL TAKE THAT AS END-OF -FILEC TEXT), SET EOF -FLAG 
7253 ; AND LEAVE. 
7254 : 
7255 : INPUTS: 
7256 ; FILLIN BUFFER TO HOLD LINE OF BYTES READ FROM OPENED FILE 
7257 : (CR NOT INCLUDED, O-BYTE TERMINATED) 
7258 ; OUTPUTS: 
7259 ; BAD IF NON-ZERO, ERROR IN READING A BYTE FROM FILE 
7260 : EOFF IF NON-ZERO, END OF FILE WAS ENCOUNTERED 
7261 : FILLIN ASCIZ STRING THAT WAS READ AS CHAR-CR-LF STRING 
sane ; (CR-LF REMOVED) 
7264 115414 012702 115542 RDLIN: MOV oF ILLIN,R2 sPOINT R2 TO A LINE BUFFER 
7265 115420 005037 116066 CLR BAD ;CLEAR FLAGS 
7266 115424 005037 116070 CLR EOFF 
7267 115430 10$: GETBYT (CR2) 3GO GET A BYTE FROM INPUT FILE 
115430 104426 TRAP CsGETB 
115432 110012 MOvB RO,CR2) 
7268 115434 BCOMPLETE 30$ ;BR IF READ-BYTE SUCESSFUL 
: 15434 103414 BcS 30$ 
7269 115436 20%: PRINTF @RDERR ; ELSE PRINT “READ-ERROR” 
115436 012746 116126 MOV 
115442 012746 000001 MOV $1,-€S 
115446 010600 MOV RO 
115450 104417 TRAP CSPNTF 
115452 062706 000004 ADO 24.,SP 
7270 115456 012737 177777 116066 MOV #-1,BAD ; SET BAD-TRY FLAG AND LEAVE 
44 115464 16 BR 
7273 1154 122712 000015 30$: CMPB #15,(R2) ;I1S THE CHARACTER A <CR> 
7274 115472 17 BEG ; BR IF YES (GO BACK TO GET <iF>) 
7275 115474 122712 000012 CMPB #12,(R2) ;I1S THE CHARACTER A <LF> 
7276 115500 001410 BEQ ; BR IF YES C TERMINATE AND LEAVE) 
7277 115502 122712 000040 #40,(R2) ;IS IT A “EOF” CEND-OF -FILEC TEXT)) 
7278 ; CEOF=ANY NON-CHAR>37 EXCEPT CR.LF ) 
7279 115506 101002 BHI 40$ ; BR IF YES 
7280 115510 005202 INC Re ; IF NO, LEAVE CHAR IN BUFFER 
Ke 4 115512 000746 BR 10$ ; AND GO GET MORE CHARS 
7283 115514 012737 177777 116070 40$: MOV #-1,E0OFF ;IF YES, TERMINATE INPUT BUFF 
7284 ; AND SET EOF -FLAG 
7285 115522 105012 50$: CLRB (R2) 
7286 115524 RETURN 
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READ LINE OF OPENED FILE 


7295 


7296 


il 
7297 
1 


115524 


115526 
115542 


290 115746 
6066 


000207 


FILENM: 
FILLIN: 
MATCH: 
BAD: 
EOPF: 


OPNERR : 


RDERR : 


PLINE: 


EOFFND: 


ee 
t 
' 

- 


Ni4 


SEQ 
RTS PC 
-BLKB ile. ;BUFFER FOR FILE NAME 
-BLKB 132. ;BUFFER FOR SINGLE LINE READ FROM FILE 
.BLKB 80. ;BUFFER FOR WORD TO MATCH FROM FILE 
.WORDB O ;ERROR/NOT-FOUND FLAG WORD 
.WORD O sEND-OF -FILE FLAG (<>0 = EOF) 
-ASCIZ /sNSA?UNABLE TO OPEN “STSA"?/ 


-ASCIZ /SNSA?FILE READ ERROR?/ 


-ASCIZ /sNSAFILE LINE WAS: sSNSTSN/ 


-ASCIZ /ssNSAEND-OF -FILE FOUND, FILE READ/ 


SELMSG OPERATOR SELECTED MESSAGE STORAGE 


THIS ROUTINE WILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSLBF. 


INPUTS - Pi - ADDRESS OF OPERATOR SELECTED MESSAGE IN 


INPUT STRING 
EXPLICIT OUTPUTS - NONE 
IMPLICIT OUTPUTS - THE BUFFER AT OPSLBF WILL CONTAIN THE ASCIT 


182 


112712 
010337 


000207 


004437 
025466 
014501 
001403 
012725 
0004 


113711 


003632 


116256 
000000 
003356 


070656 


177777 


000006 
002410 
002516 


002406 
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-~-*#¢ 


SELMSG: 


108: 


208: 


eo ee Ge ee Ge Ge Ge Ge Ge Ge Ge GF Ge Ge Ge Ge 
'‘ 
' 
aa 


ENTRNOD: 


108: 


20%: 


BiS 


SEQ 185 


OPERATOR SELECTED INPUT STRING FOLLOWED Br 
A NULL CHARACTER 


CALL SELMSG Pl ; INPUT ADDRESS OF ASCII STRING 
R1 CONTAINS ADDRESS OF INPUT STRING 


SUBORDINATE ROUTINES - 
CALLING PROCEEDURE - 
REGISTER USAGE - 


R2 CONTAINS ADDRESS OF OUTPUT STRING 


PsPOP Ri sPUT ADDRESS OF OPR. a. bed INTO Ri 

MOV @OPSLBF ,R2 sPUT ADDRESS OF OUTPUT BUFFER INTO R2 

CLR R3 sCLEAR CHARACTER COUNTER 

TSTB CR1) sCHECK FOR END OF STRING 

BEQ 208 3GO TO 208 IF END 

MOVB CR1)+,CR2)> sELSE, MOVE BYTE TO OUTPUT BUFFER 

INC R3 sCOUNT NUMBER OF CHARACTERS IN INPUT BUFFER 

JMP 108 sGO DO MORE CHARACTERS 

MOVB @0,(R2) :PUT ZERO AT END OF OUTPUT BUFFER 

R3,MSG6C sSTORE NUMBER OF CHARACTERS FOR USE IN BUF. BUILDING 
RTS PC 

ENTRND ENTER NODE IN TABLE 


THIS ROUTINE ENTERS A NODE INTO THE NODE TABLE 


INPUTS 
EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 


NONE 

Pi - ZERO IF SUCCESSFUL, -1 IF TABLE FAL 
THE ADDRESS CONTAINED IN ADRBUF WILL BE 
ADDED TO THE NODE TABLE IN THE FIRST 
AVAILABLE SLOT WITH THE NODE TYPE CONTAINED 
IN NODTY (TARGET OR ASSIST) 


SUBORDINATE ROUTINES FINDSL - FIND EMPTY SLOT IN TABLE 
CALLING PROCEEDURE CALL ENTRND 
PSPOP Pi sOUTPUT GOOD/BAD RESULT 


, 


CALL F INDSL 3F IND AVAILABLE SLOT IN TABLE ~ 
JSR R4 , PREGIS 
. WORD F INDSL - ANCHOR 
PsPOP Ri ;CHECK IF TABLE FULL 
MOV -€RS5),R1 
BEG 108 ;IF NOT FULL BR TO 1 
PSPUSH @-1 sELSE PUT FULL INDICATION ON _— 
MOV -1,(R5)- 
BR 30% ;RE TURN 
MOV 06 ,R5 :;SET INCR. COUNTER TO 6 (BYTES) 
MOV SLOT,R1 :MOV ADDRESS OF AVAILABLE SLOT TO RR} 
MOV GADRBUF ,R2 MOV ADDRESS OF NODE ADDRESS TO R2 
MOVB C(R2)+,CR1)> 3sMOV BYTE OF ADDRESS 
DEC R3 sDECR. COUNTER 
BNE 208 ;CONTINUE UNTIL 6 BYTES TRANSFERED 
INC R1 ;SET POINTER TO NODE TYPE LOCATION 
MOVB NODTY,CR1) sMOVE NODE TYPE INTO TAXLE 


i The 
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READ LINE OF OPENED FILE 
7360 116354 PS$PUSH 00 sPUT ADDRESS ADDED INDICATION ON STACK 
116354 012725 000000 MOV 00,°RS)> 
7361 116360 308: RE TURN . ;RE TURN 
116360 000207 RTS PC 
7362 
7363 3--° 
7368 : F INDSL FIND EMPTY SLOT IN NODE TABLE 
i 
7366 ; INPUTS NONE 
7367 ; EXPLICIT OUTPUTS NONE 
7368 ; IMPLICIT OUTPUTS THE ADORESS OF THE FIRST AVAILABLE SLUT IN THE 
7369 ; NODE TABLE WILL BE LOCATED IN SLOT. THE 
7370 ; PARAMETER STACK WILL CONTAIN -1 IF THE NODE 
7371 ; TABLE IS FULL AND O IF AN EMPTY SLOT WAS FOUND 
7372 ; SUBORDINATE ROUTINES NONE 
7373 ; CALLING PROCEDURE CALL FINODSL 
7376 ; PSPOP Pl 3-1 IF FULL/ O IF SLOT AVAILABLE 
. 
rare 2 
7378 116362 012702 002412 FINDSL: MOV @NODTBL ,R2 sMOVE ADDRESS OF NODE TABLE TO R2 
7379 116366 022712 000000 108: CMP @0,(R2) 3SEE IF SLOT EMPTY 
7380 116372 001422 BEQ 208 IF YES, BR 208 
7381 116374 062702 000010 ADD @8..R2 sELSE NOVE POINTER TO NEXT ENTRY LOC. 
7382 116400 022712 177777 CMe @-1,(R2) ;SEE IF AT END OF TABLE 
7383 116404 001370 BNE 108 ;IF NOT, CONTINUE LOOKING 
7384 116406 PRINTF @TABFUL, NOD ;ELSE, PRINT TABLE FULL MESSAGE 
116406 012746 053415 MOV @NOD, -( SP) 
116412 012746 053274 MOV OTABFUL, -(SP) 
116416 012746 000002 MOV @2,-(SP) 
116422 010600 MOV SP RO 
116424 104417 TRAP CSPNTF 
116426 062706 000006 ADD 06.SP 
7385 116432 PSPUSH @-1 ;PUT TABLE FULL INDICATION ON STACK 
116432 012725 177777 MOV @-1,(R5)- 
7386 116436 000404 BR 30% ;RE TURN 
7387 116440 010237 002410 208: MOV R2,SLOT sMOVE ADDRESS OF EMPTY LOC. INTO SLOT 
7388 116444 PSPUSH 940 ;PUT LOC. FOUND INDICATION ON STACK 
116444 012725 000000 MOV @0,(RS)-> 
7389 116450 30%: RE TURN ;RE TURN 
116450 000207 RTS PC 
7390 
7391 3--° 
i : FULSLT FULL SLOT ROUTINE 
a 
7394 . THIS ROUTINE FINDS A LOCATION IN THE TABLE WHERE A NODE PHYSICAL 
a ; ADDRESS EXISTS. IT IS USED WHEN PRINTING OUT THE NODE TABLE. 
iG 
7397 ; INPUTS NONE 
7398 : EXPLICIT OUTPUTS NONE 
7399 5 IMPLICIT OUTPUTS THE LOCATION SLOT WILL CONTAIN THE PHYSICAL 
7400 ; ADDRESS OF A NODE TABLE ENTRY. SLOT WILL 
7401 ; CONTAIN -1 WHEN POINTING TO THE END OF THE 
7402 ; NODE TABLE 
7403 : SUBORDINATE ROUTINES NONE 
7404 ; CALLING PROCEDURE CALL FULSLT 
; 


DiS 


RUNAAL IPE BMA om NEDEREISE? OIAG MACRO M1200 22-HAR-84 15:12 PAGE 54-4 


013701 


010346 


005005 
012701 


062701 
022761 
001772 


002410 
000000 


177777 
002410 
177777 
000010 


177776 


000002 
000000 


002412 


000002 
177777 002412 
000000 002412 


002410 


002412 


002412 


002412 


t--? 


FULSLT: MOV 
10$: CMP 
BEQ 
CMP 
BEQ 
MOV 
BR 
20%: MOV 
BR 
30$: ADD 
BR 
40$: RE TURN 


SLOT ,R1 
#0,(R1) 
30% 


#-1,(R1) 
20% 


SEQ 185 


sMOVE SLOT LOCATION TO 1 


; 

;SEE IF END OF * NODE TABLE 

;IF YES, BR 20% 

toby PUT EMPTY LOC. ADDRESS INTO SLOT 


; URN 
;sPUT -1 INTO SLOT TO SHOW END OF TABLE 
;RETURN 

;INCR, POINTER TO NEXT LOCATION 

3C.4ECK NEXT LOC. 

;RE TURN 


RTS PC 





38: 


5$: 


78: 


108: 
128: 


RS 
#-2.,R1 


@2.,R1 


00. ,NODTBL(R1) 
33 


@6.,R1 
——? 


7$ 


NOOTBL(R1),R4 
0400 ,NODTBL(R1) 


10% 


#1,R5 
02,R5 
12s 


NODTBL(R1 ) 


69,EMSG69 


RS 


o2.,R1 
@-i,NODTBLC(R1) 


ExIT1 


#0. ,NODTBL(R1) 
12$ 


; REPORT IT 


TRAP CsERSOF T 
-WORD 69 

-WORD EMSGO69 
.wORD 0 


ELS 
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116732 


116752 


012701 


010125 
000207 


012746 
012746 
012746 


010600 
104417 


177777 


002324 


053144 
000002 


ADD #6. ,R1 
BR 53% 
EXIT: 
MOV (SP )+,R5S 
MOV (SP )+,R4 
MOV (SP )+,R3 
MOV CSP)+,R1 
RE TURN 


SEQ 1 


RTS PC 


8 





COMPARE TWO ADDRESSES 


THIS ROUTINE COMPARES TWO SIX BYTE STRINGS 


3 CMPADR 

rs 

‘ 

t 

; INPUTS 

OUTPUTS 

; CALLING PROCEDURE 

> 

a 

3--e 

CMPADR: P$POP R2,R3 
CMP (R2)+,(R3)> 
BNE 10$ 
CMP (R2)+,CR3)> 
BNE ¢ 
CMP (R2),(R3) 
BNE 108 
CLR RL 
BR 

108: oh 

50s, CORETURN: RL 

2 PRTNOD 


INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 
SUBORDINATE ROUTINES 
CALLING SEQUENCE 


PRTNOD: PRINTF *#NODADR, OSTRBUF 


P1 - ADDRESS OF FIRST STRING 
P2 - ADDRESS OF SECOND STRING 
PS - 0 = COMPARISON/-1 = NO COMPARISON 


CALL CMPADR P1,P2 
PSsPOP P53 


;PUT ADORESS OF STRING — COMPARED R2 AND R3 


-CRS). 


MOV -(R5),RS 
a in ex Ms BYTES COMPARE 
3 
;00 SECOND Tuo BYTES COMPARE 
; IF NO, EXIT 
;D0 LAST TWO BYTES COMPARE 
; IF NO, EXIT 


;PUT COMPARISON OK INDICATOR IN R1 

;PUT NO COMPARISON INDICATOR IN R1 
MOY Ri, CRS)- 
RTS PC 


PRINT NODE TABLE 
ENTRY IN THE NODE TABLE WILL BE PRINTED 


CALL PRTNOD 
;PRINT NODE ADDRESS 


NONE 
NONE 
ONE 

NONE 


MOV eSTRBUF, 
MOV @NODADR , 
MOV @2, - (SP) 
MOV SP RO 
TRAP eSPNTE 


yh 4. 
“CS 


Fis 
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117110 
117110 
117110 


062706 
013702 
162702 


0004 
012737 


013746 
012746 


104401 


000006 
002410 
002412 


053154 
000002 


061757 
061747 
002314 
053167 
000002 


000006 


002314 


002314 10$: 
205: 


PRINTF 


RE TURN 
EXIT 


-EVEN 
ENDTST 


SLOT ,R2 
@NODTBL ,R2 
R2 


Re 
Reo 
&LOGNAM ,R2 


SLOT ,R2 
@7,R2 
CR2),R35 
R3,@CASIST 


10$ 
@ARGTY7 ,KEYWD2 
20% 


®ARGTY6 ,.KEYWD2 
ONODTYP ,.KEYWD2 


TST 


ADO 
sMOVE SLOT ADDRESS INTO R2 
sCALCULATE NODE LOGICAL NAME 
sUSING: LOG. NO. * 

; (SLOT - @NODTAB )/8 


sPRINT LOGICAL NAME 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

;SEE IF TARGET OR ASSIST 


SEQ 187 


06 , SP 


R2, -CSP) 
OLOGNAM, -( SP) 
2, -(SP) 

SP .RO 

CSPNTF 

o6,SP 


NODE 
; INFO CONTAINED IN 7TH BYTE OF ENTRY 


sMOVE INTO R3 
;SEE IF ASSIST aoe 
; IF YES, BR 1 


; ELSE MOVE TARGET” INTO KEYWD2 


; ONT INUE 
; MOVE tye 
sPRINT NODE TYPE 


INTO KEYWD2 
MOV 


TRAP 
ADD 


;RETURN 
RTS PC 


INSERT LOCAL STORAGE THAT IS USED ONLY 
DURING THIS TEST. 


INSERT MESSAGES THAT ARE USED ONLY 
DURING THIS TEST. 


L10015: 
TRAP 


BEGIN THE REMAINING TESTS ON NEW PAGES. 


KEYWD2, -C€SP) 
@NODT YP, -CSP) 
ee. -(€SP) 

SP .RO 

CSPNTF 


CSExIT 
L10015-. 


Cserst 
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7570 


7571 


117112 
117112 
117114 


117114 


117144 
117146 
117146 


7582 117146 


117151 
117154 
117157 
117162 
117165 
117170 


000015 


000031 
117146 


160000 
177776 
001031 
117201 
000000 
000776 
002032 
1172355 
000340 


000007 


G15 


SEQ 188 


.SBTTL HARDWARE PARAMETER CODING SECTION 


"THE HARDWARE PARAMETER CODING SECTION 1y"r MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCT IONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR 


BGNHRD 
-WORD L10016-1 $HARD/2 
L SHARD: : 
(ee ee a oe a 6 6h ee 
3 INSERT HARDWARE PARAMETER INTERPRETIVE CODE HERE. THIS CODE 
F IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 
: DEVICE INFORMATION TO PUT IN THE P-TABLE. THIS CODE IS USED 
F IN CONJUNCTION WITH THE DEFAULT P-TABLE TEMPLATE. THE MACROS 
3 USED IN THIS SECTION ARE “GPRMD”, “GPRMA” AND “GPRML”. 
| SASSSSSASAAASASAASAAASSSSSAAS SSAA AAAS AAAS Sas 
GPRMA ASKCSR,.O,.0,160000,177776, YES ; GET CSR ADDRESS 
. WORD TSCODE 
. WORD ASKCSR 
. WORD TSLOLIM 
. WORD TSHILIM 
GPRMA ASKVEC ,2,0,0, 776, YES ; GET VECTOR ADDRESS 
. WORD TSCODE 
WORD ASKVEC 
. WORD TSLOLIM 
. WORD TSHILIM 
GPRMD ASKPRI,4.0,340,0,7, YES ; GET PRIORITY LEVEL 
. WORD TSCODE 
. WORD ASKPRI 
. WORD 340 
. WORD TSLOL IM 
. WORD TSHILIM 
ENDHRD 
.EVEN 
L10016: 
: 
3 INSERT MESSAGES THAT ARE USE 


D ONLY 
DURING THE HARDWARE PARAMETER CODING SECTION. 


ASKCSR: .ASCIZ /WHAT IS THE PCSRO ADDRESS?/ 


His 
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7583 


7584 


7585 
7586 


117175 
117176 


123 


ASKVEC: .ASCIZ /WHAT IS THE VECTOR ADDRESS?/ 


ASKPRI: .ASCIZ /WHAT IS THE PRIORITY LEVEL ?/ 


-EVEN 


SEQ 189 


Sor Tuare 


7635 


117272 
117272 
117274 


117274 
117274 


117274 
117274 


117306 


117306 
117310 
117312 
117312 


.SBTTL SOFTWARE PARAMETER CODING SECTION 


BGNSF T 


INSERT SOFTWARE PARAMETER INTERPRETIVE CODING HERE. 


Tis 
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"THE SOFTWARE PARAMETER CODING SECTION Ne —s 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


L$SOFT:: 


SEQ 190 


-WORD L10017-L$S0OF T/2 


THIS CODE 


IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 
SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOFTWARE 


TABLE. 
.EVEN 
ENDSF T 
3 
: 
: DURING 
3 
$PATCH:: 
” BLKW 


N.M. 


THIS SECTION IS OPTIONAL 


INSERT MESSAGES THAT ARE USED ONLY 
THE SOFTWARE PARAMETER CODING SECTION. 


(CHANGED FROM 100 TO 5) 


L10017: 


EVEN 


THIS IS A PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS. 


ADJUST THE SIZE TO FIT YOUR OWN PREFERENCES. 


LASTAD 


L$LAST:: 


LKW 


3:3; N.M. CCHANGED FROM 40 TO 5) 


EVEN 
WORD 
-WORD 0 


J15 
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PARAMETER CODING SECTI 


000001 


ESGBEKLEKS ESTAR ES EAAREKESKADRECERHECBREK EHH SHSSASTASECAASEREHEREHSA OG DRE RERSMEERSE RHE RD HAS 
HARDCODED P-TABLES MAY BE PLACED HERE BY USING THE SETUP MACROS. 
THIS SECTION IS OPTIONAL AND SHOULD BE REMOVED IF IT IS NOT BEING 
USED. CHANGE THE POINTER MACRO ARGUMENT TO REFLECT THE REMOVAL. 


THE P-TABLES ARE DELIMITED BY THE "“BGNSETUP” AND “ENDSETUP” MACROS. 

THE “BGNSETUP” MACRO HAS ONE ARGUMENT WHICH IS THE NUMBER OF 

P-TABLE ENTRIES. ve ENTRY IS DELIMITED BY THE “BGNPTAB” AND 

“ENDPTAB” MACROS. NEITHER OF THESE MACROS REQUIRE AN ARGUMENT. 
SSSSSSAKKAAAKSSACAASSSSSSSAGSASSSSSASSAASSSSASSASSSSASSSASA AAA SAAS S SSAA SASS SSA S eco sae 


BGNSE TUP 1 
BGNP TAB 

-WORD O 
ENOPTAB 
ENDSE TUP 


END OF THIS MODULE 
. END 
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ACTALP i1°0€676 . 
ACTBLD 104 AD 
ACTCMS BCOUNT 
ACTCNL 114052 D ° 
ACTCNT 112612 BINDEC 
ACTCPY 107170 B INHE xX 
ACTCSU 1143504 BITO = 
ACTCTT 106746 BITOO = 
ACTOFT 114360 BITO1 = 
ACTOIR 110236 BITO2 = 
ACTEXT 106576 BITOS = 
ACTHLP 104072 BITO4 = 
ACTIOT 105552 BITOS = 
ACTMSG 106470 BITO6 = 
ACTNAD 107246 BITO7 = 
ACTNAL 107404 BITOS = 
ACTNOD 1041350 BITOS = 
ACTNUF 104062 BITl = 
ACTNUL 104070 BIT10 = 
ACTONE 106706 BIT11 = 
TOPR 106756 BITi2 = 
ACTPAT 112352 BIT13 = 
ACTRNA 107612 BIT14 = 
ACTRNL 110670 BIT1iS5 = 
ACTRSP 114710 BIT2 = 
ACTRUN 107464 BITS = 
ACTSAV 114136 BITS = 
ACTSMS 112414 BITS = 
ACTSND 113676 BIT6 = 
ACTSR4 106670 BIT7 = 
ACTSUM 105170 BITS = 
ACTSZE 107112 BITS = 
ACTTYP 107104 BLOAST 
TUNS 114202 
ACTUSF 114426 BLOF AS 
ACTXAD BLOFLG 
ACTZRO 106716 OLD 
ACTOAL 106736 DMSG 
ACTIAL 106726 BLOREQ 
° 1 BMPCNT 
ADR = 20 BMPEXTI 
ADRBUF 002316 BMPMUL 
ADRDEL 054044 BMPRCV= 
ALLNOD 061315 BMPREC 
ALPHA = 000000 BMPXMT = 
ANCHOR 070674 BOE = 
ARGTY1 061702 BRD 
ARGTY2 061710 BUFLEN 
ARGTYS 061721 BUILD = 
ARGTY4 061732 CADERR 
ARGTYS 061743 CADRER 
ARGTY6 061747 CALPHA= 
ARGTY? 061757 CASIST= 
ASKCSR 117146 BO 
ASKPRI 117235 CCCITT= 
ASKVEC 117201 CCITT = 
ASSEMB= 000010 CCLMSG= 


K15 
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Ww 
oOo an © 


OH A HOOHOOOHHOHHAHHHHHHHHHHHOHHHHHOHHHHH OOM 


C$BSUB= 


067677 
075702 
30 


ang 


CSCEFG= 


: 
ae] 


OOOHOHHoOOH 


SEQ 192 


Lis 


ny x be RO M -MAR - : P 7- 
EVNTAAO QE GNA NI EXERCISER DIAG MACRO M1200 22 84 15:12 AGE 57-2 SEQ 19% 
C.PXMD= 000054 G EMSG37 064451 FAFCT4= 000050 G G$RADO= 000020 ILLADR 002656 
C.PXMT= 000034 G EMSG38 064515 FASIST 050454 G GS$xXFER= 000004 INIADR= 000000 G 
C.PxXM2= 000050 G EMSG4 003532 G FASKIP= 000016 G GSYES = 0 INICLN 103344 
C.PXM3= 000044 G EMSG40 064561 FATFLG 050252 G 1 055046 INIEXI 103354 
C.RDAT= 000020 G EMSG41 064662 FILENM 115526 HEADER= 000016 G N 102126 
C.RERB= 000014 G EMSG42 064764 FILLIN 115542 HELP = INIT1 102154 
C.RERR= 000016 G EMSG43 06 FINDSi 116362 HELP 1 055120 * 1 G 
C.RLEX= 000032 G EMSG44 065141 FLAG = 000000 G HELP10 056141 IXE 8 G 
C.RLIN= 0000 G EMSG4S 065237 FLAGWO= 000000 G HELP11 0562352 IsAU = 000041 
C.RMDB= 000024 G EMSG46 0653503 FLAG1 050250 G HELP12 056455 ISAUTO= 000041 
C.RTRY= 000001 G EMSG47 065366 FORWRD= 000002 G HELP13 056542 ISCLN = 000041 
C.RUNT= 000010 G EMSG48 065446 FRDADR= 000004 G HELP14 056641 IsDu = 000041 
C.SECS= 000002 G EMSGS 003632 G FREMEM 24 G HELP1S 056740 ISHRD = 000041 
C.SHRT= 000004 G EMSGSO 065544 FRESIZ 050022 G HELP16 057043 ISINIT= 000041 
C.SIZ = 000000 G EMSG51 5600 FULAST 0613535 HELP17 057132 I$sMOD = 000041 
C.XABB= 000070 G 065633 FULSLT 116452 HELP18 057255 I8MSG = 000041 
C.XABT= 000072 G EMSGSS 065721 FSAU = 900015 HELP19 7 ISPROT= 000040 
C.xXDAT= 000060 G 065773 FSAUTO= 900002C HELP2 ISPTAB= 000041 
C.XMDB= 000064 G EMSGSS FSBGN = 00004L HELP20 057410 ISPWR = 000041 
COALT = 000022 EMSGS6 066116 FSCLEA= 000007 HELPe21 7 ISRPT = 000041 
CLALT = 2 EMSGS7 066152 FsDU = 000016 HELP22 057551 ISSEG = 000041 
DATCMP 077734 G EMSGSS8 066211 FSEND = 900041 HELP23 057652 ISSETU= 000041 
DECSTR 1 G EMSGS9 066267 F $SHARD= HELP24 057752 ISSFT = 000041 
P 003774 G 066344 FSHW = 000015 HELP25 060102 IsSRv = 000041 
DESC = 900002 G EMSG61 066412 FSINIT= 000006 HELP26 0601 IsSuB = 000041 
DESTIN= G EMSG62 066451 FSJMP = 000050 HELP27 060272 IsTST = 000041 
PTBL 002170 G EMSG63 066 FSMOD = 000000 HELP28 060374 J$JMP = 000167 
DIAGMC = EMSG64 066615 FSMSG = 000011 HELP29 060515 KEYWD1 002312 
DIRCOM 110266 EMSG65 066705 FSPROT= 000021 HELPS 055314 KEYWD2 002314 
DIRECT 061337 066777 FSPWR = 000017 HELP30 060563 KILMUL = 2 
ONIFLG 2G EMSG67 067071 FSRPT = 000012 HELP4 055365 L 050336 
EDPACK 075474 067121 FSSEG = 0000035 HELPS 055436 LCLKEN= 000100 G 
EF .CON= 0000 G EMSG69 7 FSSOFT= HELPS 055536 LDADR1= G 
EF .NEW= 000035 G ENTRND 116304 FSSRV = 000010 HELP7 055651 LDADR2= 000032 G 
EF .PWR= 000034 G EOFF 116070 FSSUB = 000002 HELPS 055762 LOFCTi= G 
EF .RES= 000037 G EOFFND 116205 FSSW = 000014 HELPS LOFCT2= G 
EF .STA= 000040 G ERRBLK 052102 G FSTEST= 000001 HEXBIN vu75724 iL 052310 
L * 001000 G ERRFLG 050270 G TCL HEXC 076022 LOSKIP= 000016 G 
EMSGO 003526 G ERRMSG 052100 G GETCOM 077442 HIADD = 000002 G LENGTH 061506 
EMSGO1L 06 ERRNBR 052076 G GETRNX 077344 G HIRCV = 000006 LF = 9000012 G 
EMSGO2 063467 ERROR 071002 G GETXNX 077430 G HIXMT = 000012 G LGERMS 067745 
EMSGOS 063527 ERRTYP 052074 G GSCNTO= 000200 HLPEND 003322 = G 
EMSGO4 063563 ERR1 070306 G GSDELM= 000372 HLPTAB 003224 LOCODST 075360 
3605 ERR} 070344 G G$DISP= 000005 HLP115 05635 L = 040000 G 
EMSG1 003527 G ERRS 070432 G GSEXCP= 000400 075700 LOGDEL 054132 
EMSG1O 063670 EVL = 000004 G GSHILI= 000002 = 100000 G 053154 
EMSG11 063735 EXIT = QOOO11 G$LOLI= 000001 HXFORM 075566 LOPDIR O G 
EMSG14 063774 EXxIT1 1 G$NO = HXN 075564 LORCV = G 
EMSG2 003530 G ESEND = 002100 GSOFFS= 000400 IBE = 010000 G LORTGT 004040 
EMSG22 ESLOAD= 35 GSOFSI= 000376 IDENT = 000010 LOT = 000010 G 
064103 FAADR1i= Q00022 G GSPRMA= 000001 = 5G LOXMT = 000010 G 
EMSG25 064157 FAADR2= 000032 G G$PRMD= 000002 IDTDAT 047674 LOXTGT 004060 
EMSG3 003531 G FAADRS= 000042 G G$PRML= IOTSIZ 047770 LP 004024 G 
EMSG32 064245 FAADR4= 000052 G G$RADA= 000140 IDV = 000040 G LSRTRY 002402 
EMSG34 064322 FAFCT1= 000020 G GSRADB= 000000 IER = 020000 G LST 076042 
EmMSG35 7 FAFCT2= 000030 G GSRADD= 000040 ILADMS 052565 LUPAIR 061326 
EMSG36 064424 FAFCT3= 000040 G G$RADL= 000120 ILAOM1 052651 LsaAcP 002110 G 
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L$APT 002036 G 110004 9070502 MSGTY4 061564 NOD111 051414 NOD22 050700 
L SAU 105536 G L10005 070654 MSGTYS 061571 NOD112 051420 NOD23 050702 
LSAVUT 002070 G L10006 102116 MSGTY6 061577 NOD1135 051424 NOD24 050704 
LSAUTO 103370 G L10010 3 MSGOC 003342 NOD114 051440 NOD25 050720 
Lsccp G L10011 103370 003376 G NOD115 051444 NOD26 050724 
LSCLEA 1035372 G L10012 105526 MSGCt 003526 G NOD116 051460 NOD27 050744 
L.$co 002032 G 110013 103534 MSGO2 003527 G NOD117 051464 NOD3 

L$DEPO 002011 G 110014 103542 MSGO3 003550 G NODi2 050616 NOD30 050750 
LS$DESC 002150 G L10015 117110 MSGO4 003531 G NOD120 051500 NODS1 050766 
L$DESP 002076 G 110016 117146 MSGOS 0055352 G NODi21 051504 NOD32 050772 
L$DEVP 00 G L10017 117274 MSG1 054415 NODi22 051520 NOD33 051010 
L$DISP 002164 G S060 052242 MSGiC 003344 NOD1i23 051524 NOD34 051014 
L$OLY 002116 G MABORT= 004 G MSG11 054550 NOD124 051540 NOD3S 051030 
L$DTP 002040 G MATCH 115746 MSG12 054643 NOD125 051544 NOD36 051032 
LSOTYP 002034 G MBOOT = 000010 G MSG2 054703 NOD126 051560 NOD37 051052 
L$DvU 103530 G MCARRI= 003000 G MSG2C 003346 NOD127 051564 050544 
L$DUT 002072 G MCHADR= 040000 G MSG3 054741 NODi35 0 2 NOD40 051056 
L$OVTY 002122 G MCRC = G MSG3C 003550 NOD130 051600 NOD41 051074 
L Ser 00 G MCSTAD 004032 MSG4 055002 NOD131 051604 NOD42 051076 
LSENVI 002044 G MDISC = 010000 G MSG4C 0035552 NOD132 051610 NOD43 051100 
LSERRT 052074 G MELOOP= 001000 G MSGSC 003554 NOD133 051614 NOD44 051102 
LSETP 002102 G MEOM = 020000 G MSG6C 0035556 NOD134 051620 NOD45 051106 
LSEXP1 002046 G MESPAT 061220 MSHORT= 000010 G NOD135 051634 NOD46 O51112 
LSEXP4 002064 G MESPA1 061271 MVALID= 100000 G NOD136 951640 NOD47 051116 
LSEXPS G MFAIL = G MXERRS= 040000 G NOD137 051644 NODS 

L$HARD 117114 G MFERRS= 040000 G MXLAST= 100000 G NOD14 NODSO 051122 
L SHIME 2120 G MFLAST= 100000 G MXMTIN= G NOD140 051650 NODSi 051124 
L$ 002016 G MFRAM = 000004 G MXSETP= 010000 G NOD141 051666 NODS2 051130 
LSHPTP 002022 G MFUSED= 040000 G MXUSED= G NOD142 051672 NODS3S 051144 
L $hiw 002170 G MHIBYT= 000100 G NCRTRY 002404 NOD143 051676 NODS4 051150 
L$ICP 002104 G MILOOP= 000400 G NE TADD= G NOD144 051702 NODSS 051166 
L$INIT 102126 G MINTEN= 000100 G NE TADO G NOD145 051706 051172 
L$LADP 002026 G MINVRC= 0G NETAD1 050014 G NOD146 051712 NOODS7 O51212 
LSLAST 117312 G MINVXM= G 103334 NOD147 051732 NOD6 

L$LOAD 002100 G MLOBY T= G NIRCNT G NOD1i5 0 NOD60 051216 
L$LUN 002074 G MLOSS = 010000 G G NOD150 051736 NOD61 051222 
LS$MREV 002050 G AR= 002000 G NOCLK 061766 NOD151 051750 NOD62 051224 
LSNAME 002000 G = 000004 G NOCMPR NOD152 051754 NOD63 051250 
LSPRIO 002042 G VF = 000001 G NOD 053415 NOD153 051772 NOD64 051244 
L$PROT 102120 G MRCVEN= 000001 G NODADR 053144 NOD154 051776 NOD6S 051250 
LSPRT 002112 G MRCVIN= 100000 G = 000002 NOD1SS 052014 051254 
L$REPP 002062 G MRERRS= 040000 G NOOTBL 002412 NOD156 NOD67 051260 
LSREV 002010 G MRESET= 000002 G NODTY 002406 NOD157 052034 NOD 7 

LS$RPT 102106 G MRLAST= 100000 G NODTYP 053167 NOD16 050644 NOD70 051272 
LS$SOFT 117274 G = 020000 G 16 NOD160 052040 NOD71 051276 
L$SPC G MRSETP= G NOO1 050522 NOD161 052044 NOD72 051502 
L$SPCP 002020 G Ts G NOD1O 050602 NOD162 052046 NOD73 051506 
L$SPTP G = 040000 G 051344 NOD163 NOD74 #051312 
L$STA 002030 G MSANIT= 002000 G NOD101 051562 NOD164 052056 NOD7S5 051516 
L 002200 G MSGAD 0033560 G NOD102 NOD16S 052060 NOD76 051322 
LSTEST 002114 G MSGCNT 003342 G NOD103 051370 NOD166 052064 NOD77 051340 
LSTIML 002014 G M 054345 NOD104 051572 NOD167 052070 061446 
LSUNIT i2 G MSGTAB 003324 NOD10S 051376 7 050662 NOTNUF = 

L10000 002176 MSGTYO 061536 NOD106 051402 NOD170 052072 NTBHOR 0535176 
110001 002200 MSGTY1 061544 NOD107 051406 050526 . 

L10002 070342 MSGTY2 061551 NOO11 NOD20 4 NULSTR 053076 


050604 05066 
L10003 070430 MSGTY3 061557 NOD110 051412 NOD21 050676 N10$ 050522 
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N100$ 051124 N30$ 051014 PSEXIT 100670 RRGSRT 024216 G SLFIST 050312 
N101$ 051150 N31$ 051032 P$GDBD 003221 RRGOO1 025674 G SLO 002410 G 
N102$ 051150 N32$ 051056 P$MERR 003223 RRGOO2 026774 G SMLSIZ= 000100 G 
N104$ 051172 N33$ 051076 P$NNUF 003220 030074 G CC= G 
N106$ 051216 N&O $ 051102 P$NUM 003214 RRGOOS4 0351174 G SOURCE 075472 
N110$ 051222 N61$ 051106 P$PASS 002400 032274 G * 000010 G 
Niles N82$ 051112 P$RADX 003216 RRGOOG 035574 G START 102234 
N120$ 051224 N90 $ 051116 P$SIZE 0023574 RRGOO7 034474 G STATBF 002664 
Ni21$ 051250 N9S$ 051122 PSTREE 003206 RRGO1O 035574 G STATBL 002714 
Nl2es OK 061025 PS$TRV 100544 RRGO11 0360/4 G STAT1 = 000010 G 
N1i23$ 051276 OKFU 061157 PSTRS 1 RRGO1l2 037774 G STAT2 = 000012 G 
N124$ 051312 OKRE 061046 PS$TYPE 002372 RRGO13 041074 G STATS = 000010 G 
N126$ 051316 OKTR 061112 QNAADO 047772 G RRGO14 042174 G STAT4 = 000012 G 
N130$ 051322 ONEALT= 000003 G QNAAD1 G RRGOIS 043274 G STBLEN= 000132 G 
N132$ O51 ONES = 000001 G QNAEXI 072122 RRGO1I6 044374 G STOR = 000016 G 
N134$ 051366 116072 QNAINI 071114 G RRGO1L7 045474 G STRBUF 002324 
N135$ 051370 OPRSEL = G QNAINI 071534 046574 G STRBU1L 002 
N14$ 050546 oP 003632 QNAISR 073064 RRING 024260 G 053422 
N140$ 051372 OSAPTS= 047776 G RRINGH 024544 G SUMMRY= 00000 
N141$ 051576 OsAU = 000000 i2 G RRNGTB 024172 G SUMMS1 070043 
N142$ 051402 OSBGNR= 000001 QNAVCO 047774 G RSPFLG 003202 SUMMS2 070064 
N143$ 051412 O$BGNS= 000000 QNAVC1 10 G RSPOND = 6 SUMMS3 070150 
N16$ OsO0U = 900000 QUIT 114272 RTRYER 052411 SUMMS4 070177 
N160$ 051414 OSERRT= 000000 RASIST 2G 107622 SUMMSS 070262 
N161$ 051420 O$GNSW= 000000 RBFCNT 050264 G RUNCOM 112000 070300 
N1l62$ 051464 O$POIN= 000001 RBUFB 004100 RUNDIR 110246 SVCGBL = 
N163$ 051504 OS$SETU= 000000 = 000151 G RUNLUP 110700 SVCINS= 000001 
N164$ 151524 PART 100542 G RCVBUF 050 G RUNPAT 112342 SVCSUB= 000001 
N165$ . PASABT 060672 RCVERR 76 G SAVCOM 114260 SVCTAG= 0C0001 
N166$ 051564 PATTRN 061426 RCVTGT 0235772 SAVED 054324 SVCTST= 000001 
N167$ 051604 PCCALL 0503550 G 116126 SAVTBL 002536 S$LSYM= 010000 
N168$ 051614 PCEFLG G RDESAL= 002354 G SCOLL = G S.BYTE 050040 G 
N170$ 051620 PCLKCT= 001600 G RDESC 021200 SELMSG 1162 S.COMP 050036 G 
N175$ 051650 PCLKEN= 000111 G RDESSZ= 000014 G T 072346 S.LEN 050034 G 
N178$ 051702 P 067542 G IN 115414 SETEXI 072450 S.NREC 050032 G 
N18$ PHYADR 004010 G RECAST 061407 SETFIL 0O S.REC G 
N180$ 051706 PLINE 116154 345 SETINI O72212 S.XFER 050042 G 
N181$ 051712 PN = 001000 G RECEVE 073740 SETKLD 072410 TABCLR 054220 
N162$ 051736 PREG14 070656 REPLY = SETUP 072126 TABEMT 0535346 
N183$ 051754 PRI = G REQIO .*) SETVAL 072720 TABFUL 053274 
N184$ 051776 PRIOO = G RESTOR 054333 SETWRT 072454 TASIST 0503570 G 
N185$ 14 PRIO1 = 000040 G RESTRT 103234 SFPTBL G TBLLEN= 000050 G 
N186$ 052020 PRIO2 = 000100 G RETRY 061462 SIADOR= G TEMP 050314 G 
N190$ 052044 PRIO3S = 000140 G RETRYS 050274 G SIDEV = 000053 G TEMP1 050316 G 
$ 050622 PRIO4 = G RIFUNC= 000020 G SIECO = 000050 G TEMP2 050320 G 
N200$ 052046 PRIOS = 000240 G RLSTHI 003772 G SIFNCT= 0000355 G TEMPS 050322 G 
N201$ 052052 PRIO6 = 000500 G RLSTLO 003770 G SIMSG1 067266 TENPWR 1 
N210$ 052060 PRIO7 = 000340 G RNGSIZ 024256 SIMSG2 067325 TGTAOR 023570 
N212$ 052064 PROTOT= 000014 G RNXPRV 077360 G SIMSG3 067360 TGTSIZ 023770 
N215$ 052072 PROT 0 G R 1 003764 G SIMSG4 067420 TIMERS 003762 
N22$ 0 4 PROTO2 050310 G ROMSIZ 0503502 G SIMSGS 067441 TIMER1 003756 
N23$ 050664 PRTNOD 116734 RPKLEN= 001100 G SIMSG6 067467 TIMER2 003760 
N24$% 050700 PSACT 003210 RRGCHN 4 G SIMSG7 067515 TIMMIN 003750 
N2S$ 050704 PSAERR 003222 R 024222 G SIRCPT= 000022 G T T 050272 G 
N26$ 050724 P$BUFA 003204 RRGLST 0242352 G SIVECO= 000031 G TIMSEC 003752 
N28$ 050750 PSCNT 003212 RRGNXT 024226 G SIVERS= 000027 G TIMTCK 003754 
N29$% 050772 PSCPYS 002376 RRGPRV 024234 G SIZLMI 053575 TRAST 061367 
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TRVACT 100672 TSLOLI= 000000 T$$SW = 010001 VINVRC= 000005 G NI« G 
TRVADR 101656 T$LSYM= 010000 TSS$TES= 010015 | VINVXM= 000004 G WRITES 100072 
TRVALN 101472 TSLTNO= 000001 T1 103544 G VLOBYT= 000007 G WRITEXI 072736 
TRVALP 101426 TSNEST* 177777 UAM * 000200 G VLOSS = 000014 G x * O1 G 
TRVBIF 100776 TSNSO = 000005 uCB12 050044 VNOCAR= 000013 G XFER 050524 G 
TRVBR 100766 TSPTNU= 000000 UNBOND 053756 VNXM = 000002 G XFLAG 050 G 
TRVBRC 100712 TSSAVL= 177777 UNIT 050026 G VOVF = 000000 G xMIT 073222 G 
TRVDEC 101072 TSSEGL= 177777 UNSMSG 054265 RBL = 000000 G .  &MTIDAT+ 000001 G 
TRVERR 100750 TSSUBN= 000000 Vv * 100000 G VRCVEN= 000000 G XMTSET= OO00000 G 
TRVEXI 100750 TSTAGL= 177777 VABORT= 0000153 G VRCVIN= 000017 G XPKLEN= 001100 G 
TRVNMA 101112 TSTAGN= 010020 VBOOT = 000003 G VRERRS= 000016 G x 024220 G 
TRYNOB 100722 TSTEMP= 000005 VCARRI= 000015 G VRESET= 000001 G XRGINV 024252 
TRYNUM 101104 TSTEST= 000001 VCHADR= 000016 G VRLAST= 000017 G XRGLST 024230 G 
TRVOCT 101104. TSTSTM= 177777 VCOLLO= 000004 G VRLONG= 000015 G XRGNXT 024224 G 
TRVSPA 101020 TSTSTS*= 000001 vCRC = 000001 G VRSETP= 000015 G XRGSRT 024214 G 
TRYSTR 101560 TSsAU = 010014 vVOISC = 000014 G VRUNT = 000013 G XRGOOL 024574 G 
TSTMS1 060715 TSSAUT= 010011 VECTOR= 000014 G VRUSED= 000016 G XRING 024236 G 
TSTMS2 060735 TS8CLE= 010012 VELOOP-« 000011 G VSANIT= 000012 G XRINGH 024252 
TSTMS3 060755 TssOU = 010013 VEOM = 000015 G VSHORT = 3G XRNGTB 024212 G 
TSTMS4 060770 TSS$HAR= 010016 VFAIL *= 000010 G VTOR = G x$ * 000171 
TSARGC= 000002 T$$HW = 010000 VFERRS= 000016 G VVALID= 000017 G X$ALWA= OO0000 
TSCODE= 002032 TSSINI= 010010 VFLAST= 000017 G VXERRS= 000016 G X$FALS* 000040 
TSERRN= 000105 TS$$MSG* 010004 VFRAM = 000002 G VXLAST= 000015 G X$OFFS= 000400 
TSEXCP= Q0O0000 TS$PRO= 910007 VFUSED= 000016 G VXMTIN= 000007 G X$STRUE= 000020 
TSFLAG= 000040 TSS$RPT= 010006 VHIBYT= 000006 G VXSETP= 000014 G ZEROS = 000002 G 
TSGMAN= 000000 T$$SOF= 010017 VILOOP= 000010 G VXUSED= 000016 G ZROALT= 000004 G 
TSHILI= 000007 TS$SRV= 010005 VINTEN= 000006 G WALT 070720 G $PATCH 117274 G 
TSLAST= 000001 

- ABS. 117324 000 


000000 001 
ERRORS DETECTED: 0 
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